String bei bestimmten zeichen trennen

[AndreT]

Hallo, ich bin es schon wieder mit meinen dummen Fragen
Hab heute irgendwie eine Hirnblockade und muss was fertig bekommen.


ich habe einen String wie zB 4711/34/3

den Möchte ich zerlegen nach

Edit1.text:=4711;
Edit2.text:=34;
Edit3.Text:=3;

Die Stellen zwischen den / können unterschiedlich lang sein. Es sind aber immer 3 Blöcke.

Kann mir da jemand helfen?

Ich bekomm es im Augenblick immer nur getrennt, wenn die Stellen gleich gross sind, oder das / verschwindet nicht.

Danke

[Nikolas]

Per pos kannst du das erste Auftauchen eines Substrings finden, und mit copy etwas auschneiden und löschen geht mit delete.

[Ultimator]

Explode

[ol1uw]

oder Versuch es damit

Delphi-Quellcode:

var
 s : String;
 StrL : TStringList;
begin
 s:='4711/34/3';
 s:=StringReplace(s,'/',',',[rfReplaceAll]);
 StrL:=TStringList.Create;
 StrL.CommaText:=S;
 Edit1.Text:=StrL[0];
 Edit2.Text:=StrL[1];
 Edit3.Text:=StrL[2];
 StrL.Free;

end;

[AndreT]

ge*l

Danke, genau das was ich gesucht habe.