String zerlegen

[Sharky]

Hai Uncle Cracker,

ich weis nicht welche DelphiVersion Du hast, aber zumindest in D7 gibt es die Eigenschaft .Delimiter und .DelimitedText bei einer TStringList.

Damit würde das ganze dann so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl : TStringList;
 ndx : Integer;
begin
  Memo1.Clear;
  sl := TStringList.Create;
  try
    sl.Delimiter := ';';  // Das Trennzeichen
    sl.DelimitedText := 'Text;1;Zahl;2;Wert;3;Zeichen';  //Der Text
    //Ab hier wird einfach jeder Eintrag der StringList in ein Memo geschrieben
    for ndx := 0 To sl.Count -1 do
    begin
      Memo1.Lines.Add(sl.Strings[ndx]);
    end;
  finally
    FreeAndNil (sl);
  end;
end;