Inherited 的warning?? |
答題得分者是:william
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
[Warning] FrmCUstomData.pas(17): Mehtod 'Init' hides virtual method of base type TFCustomForm Unit FrmCustom; Interface Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs; Type
TFCustomForm = Class(TForm)
Private
{ Private declarations }
Protected
{ Protected declarations }
Procedure Init(); Virtual;
Public
{ Public declarations }
Published
{ Published declarations }
End; Var
FCustomForm: TFCustomForm; Implementation {$R *.dfm} Procedure TFCustomForm.Init();
Begin
//
End; End. Unit FrmCustomData; Interface Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs; Type
TFCustomDataForm = Class(TFCustomForm)
Private
{ Private declarations }
Protected
{ Protected declarations }
Procedure Init(); Virtual;
Public
{ Public declarations }
Published
{ Published declarations }
End; Var
FCustomDataForm: TFCustomDataForm; Implementation {$R *.dfm} Procedure TFCustomDataForm.Init();
Begin
ShowMessage('');
End; 這是什麼問題呢? End.
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
TFCustomDataForm = Class(TFCustomForm) Private { Private declarations } Protected { Protected declarations } Procedure Init(); override; Public { Public declarations } Published { Published declarations } End;http://pywong.hk.st http://www.lazybones.ca |
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
Only virutal/dynamic method can be overridden... btw, implementation part of your TFCustomDataForm could be:
Procedure TFCustomDataForm.Init(); Begin inherited; ShowMessage(''); End;http://pywong.hk.st http://www.lazybones.ca |
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |