ExtractStrings und '

[angos]

Hi,

ich habe mir für einen solchen Zweck mal eine eigene Prozedur geschrieben. Vielleicht hilft dir die weiter:

Delphi-Quellcode:

procedure DelimitedStringToStringList(s, sDelim: string; var SL: TStringList);
var
  i, ilen: Integer;
  sStr: string;
begin
  SL.Clear;

  sStr := '';
  ilen := Length(sDelim);
  i := 1;
  while (i <= Length(s)) do
  begin
    if (Copy(s, i, ilen) <> sDelim) then
    begin
      sStr := sStr + s[i];
      Inc(i);
    end
    else
    begin
      SL.Add(sStr);
      sStr := '';
      Inc(i, ilen);
    end;
  end;
  if sStr <> '' then
    SL.Add(sStr);
end;

Gruß