Einfache memo Ausgabe

[Wormid]

Um mehrere Zeilen nacheinander abzuarbeiten muss das so aussehen:

Delphi-Quellcode:

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

  SL.LoadFromFile('C:\test.txt');
  for n := 0 to SL.Count - 1 do
  begin
    Tokens.Clear;  // Wenn man die Liste nicht leer macht, hängt
                   // EtractStrings die neuen Werte an die Liste hinten
                   // an. Aber das kann ja auch gewollt sein. ;-)
    for i := 0 to (ExtractStrings([','], [], PChar(SL[n]), Tokens) - 1) do
      Memo1.Lines.Add('Zeile ' + IntToStr(n + 1) + ': ' + Tokens[i]);
  end;

  SL.Free;
  Tokens.Free;
end;