String anhand eines Trennzeichens zerlegen

[runningsoft]

Oder wenn es ein anderer Trenner als | ist, z.B. das Semikolon:

Delphi-Quellcode:

S := 'aaa;bbb';
N := Pos(';',S);
S1 := (Copy(S,1,N-1));
Delete(S,1,N);
S2 := S

[Uwe Raabe]

Mit den korrekten Werten für 1-basierte Strings sollte es gehen:

Delphi-Quellcode:

  s1 := Copy(sTemp, 1, Pos('|', sTemp) - 1);
  Delete(sTemp, 1, Pos('|', sTemp)); // um den ersten Teil abzuschneiden
  s2 := sTemp; // um den Rest zuzuweisen

Etwas komfortabler geht es aber so:

Delphi-Quellcode:

//   arr: TArray<string>;

  arr := sTemp.Split(['|']);
  s1 := arr[0];
  s2 := arr[1];

[michael.cohrs]

Vielen Dank euch allen!!

[hoika]

Hallo,
StringList und Delimiter.
Nicht ebend schnell, funktioniert aber.

[Neutral General]

Gibt auch noch String.Split:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var s: String;
    strParts: TArray<String>;
begin
  s := 'Hallo|Welt';
  strParts := s.Split(['|']);
end;

[DieDolly]

Die Antwort dazu stand schon am Ende auf der ersten Seite.

[michael.cohrs]

Das stimmt, ich hab sie nur nicht gleich richtig verstanden ;-( dennoch vielen Dank!!