testvarparam.out

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

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.