类TChiense 继承自类TMan ,如果我在TMan里实现了构造函数,那么 TChiense 的构造函数就不报错,如果不写,TChiense 的构造函数会报错误,有谁知道什么原因啊
就是当代码中红色字段的代码不包含时就报错
TMan = class(TObject)
private
{ Private declarations }
public
{ Public declarations }
Language:string;
Married:Boolean;
Name:string;
SkinColor:string;
constructor create;
end; TChiense = class(TMan) public
constructor create; end;implementation{$R *.dfm}
constructor TMan.create;
begin
Name:='Tom';
Language := 'Chinese';
SkinColor := 'Yellow';
end;
constructor TChiense.create;
begin
Name:='Tom';
Language := 'Chinese';
SkinColor := 'Yellow';
end;end.
解决方案 »
- 考试系统答题信息那里的控件问题
- TreeView1.Selected.Item[0].Expand(true)这个是什么意思
- 今天写程序出现的怪事
- adotable定位的问题
- 表内有字段SER_CHAR VARCHAR(6) ,以及 SER_NUM NUMERIC 合并成另一段cccode
- http://expert.csdn.net/Expert/topic/2912/2912794.xml?temp=.2223322
- sendtext 的困惑
- 如何在安装程序中添加限制用户安装(保护版权)功能?
- 资源管理器“查看”中的“平铺”或“图标”模式是如何实现的?
- 兄弟们有没有谁知道哪里有免费的LQ-1600打印机断针的程序?
- delphi7 dllform窗体显示的时候如何对应MDI里的新建的TabSheet
- delphi如何备份orcal数据库?
begin
inherited ; //加上这句话 看看
Name:='Tom';
Language := 'Chinese';
SkinColor := 'Yellow';
end;