为什么Create里的代码不执行?关于TIdTCPClient的

lfpsoft 2007-12-24 11:54:59
TTCPClientEx = class(TIdTCPClient)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent;IP:String;nPort:Integer); overload;
destructor Destroy;override;
....
destructor TTCPClientEx.Destroy ;
begin
inherited Destroy;
end;
constructor TTCPClientEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//这里的代码不能执行???
Host := IP;
Port := nPort;
end;
...全文
110 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangxuelid 2007-12-26
  • 打赏
  • 举报
回复
DD
lfpsoft 2007-12-25
  • 打赏
  • 举报
回复
原因查明了,原来代码是要在运行状态运行Create(IP,PORT)时才会运行。
还有个问题,为什么TIdTCPClient的Create方法不能override呢?
lfpsoft 2007-12-25
  • 打赏
  • 举报
回复
如果我想在我的控件在Create的执行一些初始化的操作。
例如FReadStream:=TMemoryStream.Create;
..
这些代码应该如何操作啊。
ly_liuyang 2007-12-25
  • 打赏
  • 举报
回复
overload/override不一样的
僵哥 2007-12-25
  • 打赏
  • 举报
回复
父类的声明不是虚函数,所以不能override。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧