littletest11.out

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

unit LittleTest11;

interface

{ AFS 8 July 2003

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

  test a procedure constant with a value }


uses Classes;

const
  Foo: procedure = nil;
  Bar: function: boolean of object = nil;
  Fish: procedure(const Monkey: string; const Shatner: array of TObject;
    Soy: TComponentClass) = nil;


implementation

procedure fooProc;
var
  ProcVar2: procedure(Arg1: integer);
begin
end;

end.