testrunondef.obs

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

unit testrunondef;interface type thaslongprocs=class public procedure dosomething
(var pialongparamter:integer;pbanotherparamter:boolean;pmmorebettermoney:currency
);function dosomethingelsealthogether(var pialongparamter:integer;pbanotherparamter
:boolean;pmmorebettermoney:currency):tobject;virtual;safecall;function hasmodifiers
:integer;virtual;safecall;end;type tveryextremelylongprocedure1=function(fred:integer
):currency of object;tveryextremelylongprocedure2=function(fred:integer):currency
of object;tveryextremelylongprocedure3=function(fred:integer):currency of object;
tveryextremelylongprocedure4=function(fred:integer):currency of object;tveryextremelylongprocedure5
=function(fred:integer):currency of object;dissimilarstuff=(apples,oranges,deconstructionism
,compostheap);implementation procedure thaslongprocs.dosomething(var pialongparamter
:integer;pbanotherparamter:boolean;pmmorebettermoney:currency);begin end;function
thaslongprocs.dosomethingelsealthogether(var pialongparamter:integer;pbanotherparamter
:boolean;pmmorebettermoney:currency):tobject;begin result:=nil;end;function thaslongprocs
.hasmodifiers:integer;begin result:=-1;end;end.