testdelphinetstatic.out

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

unit TestDelphiNetStatic;

{ This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 basic tests of class procedures and class constructors
}

interface

type
  TMyClass = class(TObject)
    class var
    InstanceCount: integer;
  end;

type
  TMyClass2 = class(TObject)
  public
    class procedure ShowInstanceCount; static;
  end;

type
  TMyClass3 = class(TObject)
  private
    class procedure SetData(AData: integer); static;
    class function GetData: integer; static;
    class var
    FData: integer;
  public
    class property Data: integer Read GetData Write SetData;
  end;

type
  TMyClass4 = class(TObject)
  public
    class constructor Create;
  end;

type
  TMyClass5 = class
    sealed
  public
    procedure HelloMyClass;
  end;

implementation

{ TMyClass2 }

class procedure TMyClass2.ShowInstanceCount;
begin

end;

{ TMyClass3 }

class procedure TMyClass3.SetData(AData: integer);
begin
  fData := aData;
end;

class function TMyClass3.GetData: integer;
begin
  Result := fData;
end;

{ TMyClass4 }

class constructor TMyClass4.Create;
begin

end;

{ TMyClass5 }

procedure TMyClass5.HelloMyClass;
begin

end;

end.