在c语言中用function (int ^par)很方便,查过好多资料没找到Delphi的用法,
今晚没事突然想起用Delphi万能指针Pointer(无类型指针)应该可以代替。测试一下通过。
procedure xx(a:pchar);
var
tm:^TAdodataset;
begin
tm:=Pointer(a);
...
end;
procedure bb;
var
tm:TAdodataset;
begin
tm...
xx(@tm);
end;
笑话军事旅游美容女性百态母婴家电游戏互联网财经美女干货家饰健康探索资源娱乐学院 数码美食景区养生手机购车首饰美妆装修情感篇厨房科普动物植物编程百科知道汽车珠宝 健康评测品位娱乐居家情感星座服饰美体奢侈品美容达人亲子图库折扣生活美食花嫁风景 | 首页 |
在c语言中用function (int ^par)很方便,查过好多资料没找到Delphi的用法,
今晚没事突然想起用Delphi万能指针Pointer(无类型指针)应该可以代替。测试一下通过。
procedure xx(a:pchar);
var
tm:^TAdodataset;
begin
tm:=Pointer(a);
...
end;
procedure bb;
var
tm:TAdodataset;
begin
tm...
xx(@tm);
end;