testbogustypes.obs

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

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.