String in drei teilen

[DeddyH]

Aber dann bitte so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringlist.Create;
  try
    sl.Delimiter := '|';
    sl.StrictDelimiter := true; //erst ab Delphi 2006
    sl.DelimitedText := 'test0|test1|test2';
    ShowMessage(sl[0]+'+'+sl[1]+'+'+sl[2]);
  finally
    sl.Free;
  end;
end;

Bei Delphi-Versionen < 2006 hat man auf diese Weise aber Kummer, da sie StrictDelimiter noch nicht kennen. Das bedeutet, dass dort zusätzlich zum Delimiter auch Leerzeichen als Trenner verwendet werden. In dem Fall muss man sich anders behelfen.