Records speichern in Datei

[Kroko1999]

oder

Delphi-Quellcode:

TMyRecord = record
    A,B: Integer;
    C: array of Integer;
  end;

procedure SaveRecord (const F: TFileStream; const R: TMyRecord),
var
  I: Integer;
begin
  F.Write (R.A,SizeOf(Integer));
  F.Write (R.B,SizeOf(Integer));
  F.Write (Lenght(C),SizeOf(Integer));
  for I := 0 to Length(C)-1 do
    F.Write (R.C[I],SizeOf(Integer));

end;

und Load entsprechend!