Spaltenweises Lesen/Schreiben aus/in Text-Datei

[mkinzler]

Am Einfachsten mit Hilfe von Stringlisten:

Delphi-Quellcode:

var
  sl, sl2: TStrings;
  s: string;
  i: Integer;
...
  sl := TStringList.Create();
  sl2 := TStringList.Create();
  sl2.Delimiter := ' ';
  sl.LoadFromFile(<Dateiname>);
  //Lese Datei Zeile für Zeile
  for i := 0 to sl.Count -1 do
  begin
      sl2.DelimitedText := sl[i];
      //Nun befinden sich die Spalten in sl2[0] bis sl2[<Anzahl Spalten -1>);
  end;