Delphi-PRAXiS - Delphi String auslesen

Seite 2 von 2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi String auslesen (https://www.delphipraxis.net/61022-string-auslesen.html)

Re: String auslesen

hab ich jetzt die Frage net verstanden?
wenn ja , dann sorry.

Re: String auslesen

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

Seite 2 von 2