Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#9

Re: Funktion gesucht: Splitten eines Strings nach Trennzeich

  Alt 20. Mai 2005, 15:43
Das geht aber auch so

Delphi-Quellcode:
Var
  Liste : TStringList;

Begin
  Liste:=TStringList.Create;
  Liste.Text:='mmm#llll#llko';
  Liste.Text:=ReplaceString(Liste.Text,'#',#13#10);
  Liste.Free;
End;
Bei replaceString muste eben mal gucken ob ich die Param an die Richtige Stelle gesetzt hab.

[edit=Sharky]Delphi-Tags vervollständigt. Mfg, Sharky[/edit]
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat