Speicherfehler beim Schreiben & Lesen von Records

[Kroko1999]

Zitat von Kanne_Kaffe:

Ich habe die Function jetzt mal geändert

Delphi-Quellcode:

procedure SchreibeDatei(Filename, Name, Adresse: String; Count: Cardinal);
var
  I: Integer;
begin
  New(FileInfo);
  FileInfo.Name := Name;
  FileInfo.Adresse := Adresse;
  FileInfo.Count := Count;

  AssignFile (F, Filename);
  ReWrite(F);
  write(F, FileInfo^); // den INHALT schreiben

  CloseFile(F);
  Dispose(FileInfo);
end;

Leider ist aber das Result = ''

den Inhalt schreiben! s.o