procedure xx(a:pchar); var tm:^TAdodataset; begin tm:=Pointer(a); ... end; procedure bb; var tm:TAdodataset; begin tm... xx(@tm); end;
2,497
社区成员
88,445
社区内容
加载中
试试用AI创作助手写篇文章吧