1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type TArt = (Stadt,Land,Autobahn,Nachtfahrt); //Mögliche Typen von Fahrten

     TFahrt = Record   //enthält Länge und Art der Fahrt aus TArt
                Art:TArt;
                Zeit:Integer;
              end;

type TNachweis =  Record  //enthält Datum und Fahrt-Daten aus TFahrt
                    Datum:TDate;
                    Fahrt:TFahrt;
                  end;

TDaten = Array of TNachweis; //enhält alles zusammen					

1:

VAR Daten:TDaten;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.SaveDates;
  VAR f: file of TDaten;
      i:Integer;
begin
  assignfile(f,'C:\test.dat');
  ReWrite(f);
    if low(Daten) <> -1 then
      begin
        for i:= 0 to High(Daten) do
          begin
            write(f,Daten[i]);
          end;
      end;
  closefile(f);
end;					

1:
2:

Typ 'TDaten' benötigt Finalization - nicht im Dateityp erlaubt
Inkompatible Typen: 'TDaten' und 'TNachweis'					

1:

var f: file of TNachweis;