Spaltenweises Lesen/Schreiben aus/in Text-Datei

[himitsu]

versuch mal sowas:

Delphi-Quellcode:

//schreiben
WriteLn(myfile, t, a_apo, ecc, semia, vel, distance, r[0], r[1], r[2], v[0], v[1], v[2], p);

//lesen
ReadLn(myfile, t, a_apo, ecc, semia, vel, distance, r[0], r[1], r[2], v[0], v[1], v[2], p);

[add]
getestet und geht

Delphi-Quellcode:

var F: TextFile;
  r, r2, r3: Real;
begin
  r := 1.23;  r2 := 54.6;  r3 := 7.89;

  AssignFile(F, 'test.txt');
  Rewrite(F);
  WriteLn(F, r, r2, r3);
  CloseFile(F);

  r := 0;  r2 := 0;  r3 := 0;

  AssignFile(F, 'test.txt');
  Reset(F);
  ReadLn(F, r, r2, r3);
  CloseFile(F);

  if r = r2 + r3 then ;  // mit'm Debugger die einfach mal Variablen angucken

  r := 0;  r2 := 0;  r3 := 0;

  AssignFile(F, 'test.txt');
  Reset(F);
  Read(F, r);
  Read(F, r2);
  ReadLn(F, r3);
  CloseFile(F);

  if r = r2 + r3 then ;  // mit'm Debugger die einfach mal Variablen angucken
end;