Anzahl der Felder in einem Record

[Mavarik]

Warum so kompliziert!

Delphi-Quellcode:

var
  MyRec : byte;
begin
  ...
  MyRec := 1; // oder 2 3 

  Blockwrite(Datei,MyRec,1);

  Case MyRec of
    1 : Blockwrite(Datei,Rec1,sizeof(Rec1));
    2 : Blockwrite(Datei,Rec2,sizeof(Rec2));
    3 : Blockwrite(Datei,Rec3,sizeof(Rec3));
  end; // of case

  ...
end;

Und umgekehrt einlesen! Fertig!

Mavarik