Typorisierte Datei wird nicht gelesen

[arbu man]

Hab das ganze so veränder das der array als var übergeben wird:

Delphi-Quellcode:

procedure FunktionenLesen(FileName: String; var f :TFunktionenArray);
var
  Datei: TFunktionenDatei;
  i, count: integer;
begin
  AssignFile(Datei, FileName);    // Datei zuweisen
  Reset(Datei);                   // Datei öffnen
  count:= FileSize(Datei) div sizeof(TFunktion);
  setlength(f, count);
  for i:=0 to count -1 do begin
    Seek(Datei, i);               // Datensatzzeiger an gewünschte Position
                                  // bewegen
    Read(Datei, f[i]);       // die aktuellen Werte lesen
  end;
  CloseFile(Datei);               // Datei schließen
end;

[OT]
Ne ich meinte recordierte Dateien
[/OT]