5,388
社区成员
发帖
与我相关
我的任务
分享如何声明一个TADOConnection类型指针？
如：
定义时ADOCon我想声明为指针
Function ReadServerConfigInfo(ADOCon: TADOConnection): Boolean;
调用时我想传入一个地址
Flag:= 类.ReadServerConfigInfo(ADOConnection1);
怎样写？ 类似c++的 * 和 &
定义时ADOCon我想声明为指针
Function ReadServerConfigInfo(ADOCon: TADOConnection): Boolean;
调用时我想传入一个地址
Flag:= 类.ReadServerConfigInfo(ADOConnection1);
怎样写？ 类似c++的 * 和 &
...全文
请发表友善的回复…
发表回复
lchy20cn 2003-12-05
- 打赏
- 举报
mk
zly80425 2003-09-12
- 打赏
- 举报
下班了，晚上我再去试试
hiflower 2003-09-12
- 打赏
- 举报
不可能，你试一试这个：
procedure abc(ad:TADOConnection);
begin
ad.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Close;
abc(ADOConnection1);
if ADOConnection1.Connected then ShowMessage('ok');
end;
procedure abc(ad:TADOConnection);
begin
ad.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Close;
abc(ADOConnection1);
if ADOConnection1.Connected then ShowMessage('ok');
end;
zly80425 2003-09-12
- 打赏
- 举报
但是我在 Function ReadServerConfigInfo(ADOCon: TADOConnection): Boolean;
中对ADoCon操作并没有影响到我在调用时传入的ADOConnection1
Flag:= 类.ReadServerConfigInfo(ADOConnection1);
中对ADoCon操作并没有影响到我在调用时传入的ADOConnection1
Flag:= 类.ReadServerConfigInfo(ADOConnection1);
Delphi_Li 2003-09-12
- 打赏
- 举报
你实际上已经定义好了！！！
在Delphi中说有的对象实际上都是指针！！！
在Delphi中说有的对象实际上都是指针！！！
上海老李 2003-09-12
- 打赏
- 举报
conn:TADOConnection;
这样就声明了呀
这样就声明了呀
