Einfache memo Ausgabe

[Wormid]

So funktioniert die Routine bei mir:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var SL, Tokens: TStringList;
    i: Integer;
begin
  SL := TStringList.Create;
  Tokens := TStringList.Create;

  SL.LoadFromFile('C:\test.txt');
  for i := 0 to (ExtractStrings([','], [], PChar(SL.Text), Tokens) - 1) do
    Memo1.Lines.Add(Tokens[i]);

  SL.Free;
  Tokens.Free;
end;

Das ganze geht jetzt nur davon aus, das das Textfile nur eine Zeile mit Werten enthält.

Gruß

Wormid