AssignFile wie geht das genau?

[DeddyH]

Schon ganz gut, aber Du hast den Record vergessen.

Delphi-Quellcode:

type TTankDS = record //Das ist die Datenstruktur
  datum: TDateTime;
  km: integer;
  liter: real;
  preis: real;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var Tank: TTankDS;
    datei: file of TTankDS;  //das ist die typisierte Datei
    i:integer;
begin
  AssignFile(datei,'D:\monat.txt');

  try

    Rewrite(datei);

        for i:=1 to (StringGrid.RowCount - StringGrid.FixedRows) do
              begin
                //die Struktur mit den Daten aus dem StringGrid füllen (vorher ggf. konvertieren)
                Tank.Datum:=StrToDateTime(SG1.Cells[0,i]);
                Tank.km:=StrToInt(SG1.Cells[1,i]);
                Tank.liter:=StrToFloat(SG1.Cells[2,i]);
                Tank.preis:=StrToFloat(SG1.Cells[3,i]);
                Write(datei,Tank);  //Struktur in Datei schreiben
              end;
        closeFile(datei);
  except;
    ShowMessage('FEhler beim speichern');
  end;
end;