littletest11.out

格式化源码的最新板

unit littletest11;

interface

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.