Text aus Editfeld zerlegen und einzeln abspeichern.

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