littletest11.out

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

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.