在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;