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

type
  TSpieler = packed record
    Punktekonto: array of integer;
    Platz: integer;
    PlTemp: boolean;
    hoechstePunktzahl: integer;
    Speedkonto: array of integer;
    SchussNr: integer;
    Name: string[25];
    Vorname: string[25];
    Mannschaft:string[30];
    Str: string[30];
    plz: string[5];
    ort: String[30];
    land: String[20];
    telefon: String[30];
    alter: String[5];
    Torgrafik: array of TBitmap;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:

type
   TStatistik =  packed record
    Feld: array[1..23] of array[1..9] of Integer;
    Schussnr: integer;
    Spielnr: integer;
    Wiederholung_spiel: integer;
    spielerergebnisse: array of TSpieler;  //hier ist das erste record implementiert
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure Tfun_football.Statistik_allgemein();
var i,j: integer;
    FStatistik: File of TStatistik;  // hier kommt die Fehlermeldung
begin
        setLength(statistik.spielerergebnisse,akt_Spieler);
        for i:=0 to akt_Spieler do
        begin
          for j:= 0 to StrToInt(regeln.anzahl_schuss) do
          begin
            statistik.spielerergebnisse[i].Punktekonto[j]:= game[i].Punktekonto[j];
            statistik.spielerergebnisse[i].Speedkonto[j] := game[i].Speedkonto[j];
          end;
          statistik.spielerergebnisse[i].Name:= game[i].Name;
          statistik.spielerergebnisse[i].Vorname:= game[i].Vorname;
          statistik.spielerergebnisse[i].Mannschaft:= game[i].Mannschaft;
        end;
        AssignFile(FStatistik,ExtractFilePath(ParamStr(0))+'Statistik_allgemein.kpt');
        if FileExists('Statistik_allgemein.kpt') then
           Seek(FStatistik,fileSize(FStatistik)-1);
        ReWrite(FStatistik);
        write(FStatistik,statistik);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var Z1:Integer;
var Z2:Byte;
var Z3:String[50];

procedure TForm1.SaveVars;
var Stream:TFileStream;
begin
  Stream:=TFileStream.Create('C:\Test.dat', fmCreate);
  try
    Stream.WriteBuffer(Z1,SizeOf(Z1));
    Stream.WriteBuffer(Z2,SizeOf(Z2));
    Stream.WriteBuffer(Z3,SizeOf(Z3));
  finally
    Stream.Free;
  end;
end;

procedure TForm1.LoadVars;
var Stream:TFileStream;
begin
  Stream:=TFileStream.Create('C:\Test.dat', fmOpenRead);
  try
    Stream.ReadBuffer(Z1,SizeOf(Z1));
    Stream.ReadBuffer(Z2,SizeOf(Z2));
    Stream.ReadBuffer(Z3,SizeOf(Z3));
  finally
    Stream.Free;
  end;
end;