testdelphinetclassvar.out

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

unit testdelphinetclassvar;

interface

type
  teomreport = class(TObject)
  private
  var
    rtop20clrefer, rpstoftotalcr, rtop20sl, rpstoftotalsl, rtop20ca, rpstoftotalca: real;

    procedure fetchtop20currentaccount;
  public
    procedure transfertop20currentaccount;
  end;

type
  tfooreport = class(TObject)
  private
  var
    foo, bar:  string;
    fish, boo: integer;

    function wibble: integer;
  var
    goo, gar, gib: integer;
  var
    soo, dar: integer;
    thing: string;
  end;

  tfooclass = class
  var
    a1: integer;
  private
  var
    b2: string;
    b3: integer;
  protected
  var
    c3, c4, c5: boolean;
  public
  var
    d6: TObject;
  end;

implementation

procedure teomreport.fetchtop20currentaccount;
begin
end;

procedure teomreport.transfertop20currentaccount;
begin
end;

function tfooreport.wibble: integer;
begin
  Result := 3;
end;

end.