String in drei teilen

[mkinzler]

Lösung per Stringliste

Delphi-Quellcode:

var
  sl: TStrings;
...
begin
  sl := TStringlist.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := 'test|test1|test2';
  ...
  sl.Free;

sl.Strings[0] enthält dann 'test1';