Нужна функция разбиения строки в массив или в TStringList
с указанием символов разделителей, типа split в php
Функция разбиения строки в Delphi
1
Лучший ответ:
1
В Delphi есть стандартная функция для разбиения строки на подстроки, совсем как в PHP
var
sl: TStringList;
begin
sl := TStringList.Create;
try
ExtractStrings([';', ','], [' '], 'language: russian; delphi, php, c++; Ivanov', sl);
// тут обрабатываем sl.Items
finally
sl.Free;
end;
end;
Данная функция описана в Classes
type TSysCharSet = set of Char;
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
Подробнее тут
Можно конечно самостоятелько написать "велосипед"
function Explode(const delim, str: string): TStringList;
var offset: integer;
cur: integer;
dl: integer;
begin
Result:=TStringList.Create;
dl:=Length(delim);
offset:=1;
while True do begin
cur:=PosEx(delim, str, offset);
if cur > 0 then
Result.Add(Copy(str, offset, cur - offset))
else begin
Result.Add(Copy(str, offset, Length(str) - offset + 1));
Break
end;
offset:=cur + dl;
end;
end;