testclassmethods.out

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

unit TestClassMethods;

{ AFS 15 July 2007

  This code compiles, but is not semantically meaningfull.
  It is test cases for the code-formating utility

  this unit tests class methods and properties  }

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

{ TFooForm }

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.