Typorisierte Datei wird nicht gelesen

[arbu man]

Hi,

Ich lese mit folgenden code eine typorisierte Datei aus:

Delphi-Quellcode:

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

Leider bleibt der array leer aber in der datei stehen daten, es kommt aber kein fehler was läuft da falsch ?

mfg, Björn