Meine Explode-Funktion optimieren

[marabu]

Hi folks,

für Minimalisten reicht manchmal schon das hier:

Delphi-Quellcode:

procedure Explode(const s, delimiter: String; items: TStrings);
begin
  items.CommaText := StringReplace(AnsiQuotedStr(s, '"'), delimiter, '","', [rfReplaceAll]);
end;

Freundliche Grüße vom marabu