testvarparam.obs

格式化源码的最新板

unit testvarparam;interface implementation procedure mangledata(var data);begin 
end;procedure callmangledata;var foo:string;bar:pchar;begin foo:='hello';mangledata
(foo);bar:=pchar(foo);mangledata(bar);mangledata(bar^);mangledata(pchar(foo)^);end
;end.