String zerlegen - String pick to pieces

[Duffy]

Hallo alle zusammen,
da es in letzter Zeit öfters gefragt wurde, hier mal ein Library Procedure mit Beispiel.

Delphi-Quellcode:

procedure StringPickToPieces(Str: AnsiString; Separator: Char; Strings: TStrings);
begin
  try
    Strings.Clear;  // Stringliste löschen
    while AnsiPos(Separator, Str) > 0 do  // solange es noch einen Separator gibt
    begin
      Strings.Add(Copy(Str, 1, AnsiPos(Separator, Str) - 1)); // Token in der Stringliste sichern
      Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str)); // String um das Token mit Separator kürzen
    end;
    Strings.Add(Str); // und das letzte Token auch mitnehmen
  except
    // hier könnte auch noch was gemacht werden
  end;
end;

bye