Text aus Editfeld zerlegen und einzeln abspeichern.

[gonium]

Sooooo ich bins mal wieder ^^
und mal wieder mit ner Anfängerfrage, aber irgendwann musses jeder mal erst kapieren ;)

Ich hab zwar schon ein bisschen im Forum gesucht aber nichts entsprechendes gefunden, wenn ihr fündig werdet gebt mir bitte nen Link ;)

Ich habe hier einen Text der z.B. so aussieht:

100,200,300

Wie schaffe ich es jetzt diesen String in einzelne Strings zu teilen ??
Sodass ich dann statt

s := 100,200,300

das hier habe

s1 := 100
s2 := 200
s3 := 300


Ich bin sicher man weis mir hier wieder Rat ;)

Gruß Ben

[fkerber]

HI!

Such mal in der Code-Lib nach Explode!


Ciao Frederic

[gonium]

wow... das haut mich um ^^

Danke schonmal für die Antwort, aber ich bin in Delphi noch nicht bewandert genug um durch den QC komplett durchzublicken...

Wäre es vielleicht möglich eine kleine Erklärung zu geben?
Wäre dir überaus dankbar ;)


Gruß

[bundy]

Hallo

Ich würde das so zerlegen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2,s3:string;
    i:integer;
begin
i:=1;
s:='100,200,300' ;
while s[i]<>',' do
  begin
  s1:=s1+s[i];
  inc(i);
  end;
  inc(i);
while s[i]<>',' do
  begin
  s2:=s2+s[i];
  inc(i);
  end;
  inc(i);
while s[i]<>'' do
  begin
  s3:=s3+s[i];
  inc(i);
  end;
ShowMessage('S1 = '+s1+#13+'S2 = '+s2+#13+'S3 = '+s3);


end;

[Khabarakh]

Warum das Rad neu erfinden :wink: ?
[oh]TStringList.CommaText/DelimitedText[/oh]
Achtung: Beim Leerzeichen wird auch getrennt.

[gonium]

Super, das TStringList.CommaText is genau das richtige !! Danke ;)

Auch dank den anderen sie sich soviel Mühe machen ;)