多态窗体，出错一问 ( 积分: 50 )

C

chinaandys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #1

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create(Aowner:Tcomponent;S:String);override;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
constructor TForm2.Create(Aowner:Tcomponent;S:String);
begin
inherited Create(AOwner);
self.Caption:=s;
end;
end.
----------------------编译错误提示--------------------------
[Error] Unit2.pas(15): Declaration of 'Create' differs from previous declaration
[Fatal Error] Unit1.pas(22): Could not compile used unit 'Unit2.pas'

 

C

chinaandys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create(Aowner:Tcomponent;S:String);override;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
constructor TForm2.Create(Aowner:Tcomponent;S:String);
begin
inherited Create(AOwner);
self.Caption:=s;
end;
end.
----------------------编译错误提示--------------------------
[Error] Unit2.pas(15): Declaration of 'Create' differs from previous declaration
[Fatal Error] Unit1.pas(22): Could not compile used unit 'Unit2.pas'

 

我

我是一只小小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #3

构造方法不要 override

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #4

constructor Create(Aowner:Tcomponent;S:String);override;
换成：
constructor Create(Aowner:Tcomponent;override;
“s“可在private中定义

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #5

应该声明两次啥！
public
constructor Create(AOwner: TComponent);overload; override;
constructor Create(AOwner: TComponent;......); reintroduce; overload;
end;

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #6

这个应该是
inherited Create(AOwner);
的问题
inherited ;就可以了

 

我

我是一只小小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #7

这样

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create;ovreload;
constructor Create(Aowner:Tcomponent;S:String);
end;

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #8

我上面说错了
这才是标准做法(有一个编译警告)
constructor Create(Aowner:Tcomponent;S:String);overload;
实现必须是这样：
constructor TForm2.Create(Aowner: Tcomponent; S: String);
begin
inherited create(Aowner);
//...
end;

 

G

GuChong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-19

• #9

同意上面的意见!
用overload;

 

C

chinaandys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-20

• #10

由于窗体重载次次数比较多，所以感觉用OverLoad后，显示出现的太多了，各位高人还有什么高招，谢谢

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-20

• #11

显示出现的太多了
==========
是什么意思？

 

我

我是一只小小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-20

• #12

是不是觉得同名的构造器太多了．
不考虑兼容性，那你就给构造器起不同的名字．

constructor CreatebyString(Aowner:Tcomponent;S:String);