Размер "File"

[Alex Cones]

procedure TForm1.Button1Click(Sender: TObject);
Var
F:File;
begin
 Button1.Caption := IntToStr(SizeOf(F));
end;

332 (О_о)

С чего, вдруг, File столько весит?

[Вадим Буренков]

А сколько он должен весить?

[Alex Cones]

Ну.... 4, наверное. Это ж вроде как указатель.
И не круглое, какое то число 332.

[Serge_Bliznykov]

из sysutils.pas

  { Typed-file and untyped-file record }

  TFileRec = packed record (* must match the size the compiler generates: 332
bytes *)
    Handle: Integer;
    Mode: Integer;
    RecSize: Cardinal;
    Private: array[1..28] of Byte;
    UserData: array[1..32] of Byte;
    Name: array[0..259] of Char;
  end;

[Alex Cones]

Хм... Сколько всего намутили...
Спасибо.