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);
CloseFile(F);
Dispose(FileInfo);
end;
Leider ist aber das Result = ''