constructor TForm1.Create(AOwner: TComponent; OpType: Integer);
begin
inherited Create(AOwner);
end;
begin
inherited Create(AOwner);
end;
解决方案 »
- delphi checkbox
- 如何解决 "ADO取oracle9的数据时把负数都变成正的问题"
- 自带的MediaPlayer组件,播放有些Mp3文件,没有声音,该如何解决,急!!!
- 谁给我详细讲一下ADO 最好有例子,谢谢~
- 【倒分热线】请seabird19800404 (农民) 和berylseabirdjnb(沙鸥) 解释
- 救助!如何写一个类似自动申请邮箱的程序?
- 请大家指教一下如何用installshield在安装的对话框中将英文改为自己定义的汉语!!!
- 一个非主窗体form1,form1.close后,而下次再form1.show,怎么还能出现呢?
- 请问怎么写gina.dll可以实现自动登陆
- 日期时间字段的赋值的问题?
- 关于对(10/3)取小数点后2位的问题
- 寻求《Delphi 5.x高效数据库应用系统篇》电子版和示例代码的下载
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
constructor TMyForm.Create(AOwner:TComponent;optype:integer);
begin
Self.Create(AOwner);//不过可能伴水兄的方法更规范罢
OperType := optype;
end; lxpbuaa(桂枝香在故国晚秋) 兄,并不是不能直接加,如果我重载了就可以,这就是overload的本意阿,对于父类的方法如果子类里面需要不同的参数来实现,就可以使用overload.而且你也没有说清楚具体应该怎么做,所以分分给伴水兄了。:)
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
--------摘自nicrosoft的浅谈多态——概念描述