testpackedobject.out

来自「格式化源码的最新板」· OUT 代码 · 共 25 行

unit TestPackedObject;

{ AFS
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
 This test is in its own file
 since it does not compile in Delphi 2007
 but apparently does in some earlier verions

 test the "packed" modifier on the TurboPascal legacy "object" keyword
 }

interface

type

  TPackedObject = packed object

  end;


implementation

end.