string durch ; getrennt

[Sprint]

Dafür kannst du auch TStringList missbrauchen. Stichwort: Delimiter und DelimiterText.
Das könnte dann z.B. so aussehen...

Delphi-Quellcode:

var
  List: TStringList;
  I: Integer;
  S: String;
begin

  S := '1345123515;345235;2352354;23452345;';
  List := TStringList.Create;

  try

    with List do
    begin
      Delimiter := ';';
      DelimitedText := S;
      for I := 0 to Count - 1 do
        ShowMessage(Strings[I]);
    end;

  finally
    List.Free;
  end;

end;