File of Byte

[DeddyH]

Ich denke, es ist eher so etwas gemeint (keine Fehlerbehandlung implementiert):

Delphi-Quellcode:

function IsFileSizeValid(const FileName: string): Boolean;
type TTestRec = record
  bla: string[30];
  blubb: integer;
end;
var f: file of byte;
    iSize: integer;
begin
  AssignFile(f,FileName);
  Reset(f);
  iSize := FileSize(f);
  CloseFile(f);
  Result := iSize mod SizeOf(TTestRec) = 0;
end;