testdelphinetstatic.out

格式化源码的最新板

unit testdelphinetstatic;

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

class procedure tmyclass2.showinstancecount;
begin
end;

class procedure tmyclass3.setdata(adata: integer);
begin
  fdata := adata;
end;

class
function tmyclass3.getdata: integer;
begin
  Result := fdata;
end;

class constructor tmyclass4.Create;
begin
end;

procedure tmyclass5.hellomyclass;
begin
end;

end.