String in drei teilen

[TonyR]

Zitat von fox67:

scrat1979 ich habe dein code mal ausprobiert da der von mkinzler nicht funktioniert hatt......

funzt doch einwandfrei!?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringlist.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := 'test0|test1|test2';
  ShowMessage(sl[0]+'+'+sl[1]+'+'+sl[2]);
  sl.Free;
end;

Edit: getestet mit D2010

Edit2: Sorry, vergesst es, ist ja schon geklärt, ich hatte das Browserfenster ne Weile offen und nicht aktualisiert

[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.