testclassvarempty.out

格式化源码的最新板

unit testclassvarempty;

interface

type
  tmyclass1 = class(TObject)
  private
    class var
  protected
    procedure someprotectedmethod;
  end;

type
  tmyclass2 = class(TObject)
  private
    procedure somemethod;
  protected
    class var
  public
    function somefunction: boolean;
  end;

type
  tmyclass3 = class(TObject)
  private
    procedure somemethod;
  protected
    class var
  end;

type
  tmyclass4 = class(TObject)
  private
    procedure somemethod;
  protected
    class var
  public
  end;

type
  tmyclass5 = class(TObject)
  private
    ffoo: integer;
    procedure somemethod;
  protected
    class var
  public
    property foo: integer Read ffoo Write ffoo;
  end;

implementation

procedure tmyclass1.someprotectedmethod;
begin
end;

function tmyclass2.somefunction: boolean;
begin
  Result := True;
end;

procedure tmyclass2.somemethod;
begin
end;

procedure tmyclass3.somemethod;
begin
end;

procedure tmyclass4.somemethod;
begin
end;

procedure tmyclass5.somemethod;
begin
end;

end.