testemptyclass.out

格式化源码的最新板

unit testemptyclass;

interface

uses Classes;

var
  jim: integer;

type
  tfoo    = class;
  counter = integer;
  tfoo    = class(TPersistent);
  tmylist = class(TList);

var
  cripes: string;

function oog: integer;

type
  tpenguin = class(TObject)
    libill: integer;
  public
    procedure feedme;
  end;

type
  tbar = class(TObject);

var
  opps: currency;

implementation

type
  foo = class(TObject)
  end;

function oog: integer;
begin
  Result := 3;
end;

procedure tpenguin.feedme;
begin
end;

type
  tcormorant = class(TObject);

procedure foog;
var
  lctux: tpenguin;
begin
end;

end.