testbogusdirectives.out

格式化源码的最新板

unit testbogusdirectives;

interface

uses Classes;

var
  safecall, dispid: integer;
  cdecl, protected: boolean;

const
  ReadOnly = 10;

type
  Register = class(TObject)
  private
    fidynamic, fipublic: integer;
    function getreadonly: boolean;
  protected
  public
    property dynamic: integer Read fidynamic Write fidynamic;
    property public: integer Read fipublic;
    property ReadOnly: boolean Read getreadonly;
    function dispid: integer; safecall;
    function protected: boolean;
    procedure contains;
    procedure requires;
    procedure package;
    function at: integer;
    function on: integer;
    procedure final(buffer: TStrings);
  end;

implementation

label
  dynamic;

var
  platform: integer;

procedure override;
var
  virtual: integer;
begin
  virtual := 10;
end;

function Register.dispid: integer;
begin
  Result := 12;
end;

function Register.getreadonly: boolean;
var
  Name:     string;
  absolute: integer absolute Name;
begin
  Name   := 'Fred!';
  Result := True;
end;

function Register.protected: boolean;
begin
  Result := False;
end;

procedure Register.contains;
var
  platform: array[1..4] of char;
begin
end;

procedure Register.requires;
begin
end;

procedure Register.package;
begin
end;

function Register.at: integer;
begin
  Result := 23;
end;

function Register.on: integer;
begin
  Result := 23;
end;

procedure Register.final(buffer: TStrings);
begin
end;

procedure finalabuse(buffer: TStrings);
begin
  with
    Register.Create do
    try
      final(buffer);
    finally
      Free;
    end;
end;

end.