testbogustypes.out

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

unit testbogustypes;

interface

type
  fred = class
  public
    procedure word;
    procedure dword;
    function TComponent(ps: string): string;
  end;

procedure byte;
function ansichar(pi: integer): string;

const
  int64 = 'Hello world';

implementation

procedure byte;
begin
end;

function ansichar(pi: integer): string;
begin
  byte;
  Result := '';
end;

procedure fred.dword;
begin
  ansichar(3);
end;

function fred.TComponent(ps: string): string;
begin
  Result := '';
end;

procedure fred.word;
begin
  dword;
  TComponent(ansichar(42));
end;

end.