String auslesen

[freak4fun]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x : TStringList;
ding  : integer;
dong  : string;
begin
  try
    x := TStringList.Create;
    x.CommaText := 'test test2 test3 test4';
    ding := pos(' ', x.CommaText);
    dong := copy(x.CommaText, ding, ding+4);
    Memo1.Lines.Add(dong);
  finally
    x.Free;
  end;
end;

Semikolon hinter integer fehlte und das Property Commatext wurde nicht richtig benutzt. Außerdem wird bei dong := copy(x.CommaText, ding, ding+5); ein Komma mit kopiert. Ich finde die Lösung von dataspider deutlich eleganter.

MfG
freak