littletest17.out

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

unit littletest17;

interface

uses Forms;

type
  tfooform = class(TForm)
  public
    class function foo: tfooform;
  end;

implementation

const
  soy = 42;

class function tfooform.foo: tfooform;
begin
  Result := nil;
end;

end.