在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代替,经测试可行,并给出了相关代码示例。
在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;
759
928

被折叠的 条评论
为什么被折叠?
