Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**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;

ol1uw Registriert seit: 24. Jul 2004 Ort: Freiberg 68 Beiträge Delphi 11 Alexandria	#4 Re: String bei bestimmten zeichen trennen 21. Nov 2004, 12:12 oder Versuch es damit zusammenfalten · markieren 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;
	Zitat

Einzelnen Beitrag anzeigen

Re: String bei bestimmten zeichen trennen