testclassmethods.out

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

unit testclassmethods;

interface

type
  tfooform = class
  private
    class var fish: integer;
    class function getwibble: integer; static;
  public
    class function foo: boolean;
    class
    procedure bar;
    class property wibble: integer Read getwibble;
  end;

implementation

class
procedure tfooform.bar;
begin
  Inc(fish);
end;

class function tfooform.foo: boolean;
begin
  Result := True;
end;

class function tfooform.getwibble: integer;
begin
  Result := fish;
end;

end.