重写的问题 ( 积分: 40 )

翁富大 · 2005-07-22

procedure SetEnabled(Editing: Boolean); override;
procedure TForm.SetEnabled(Editing: Boolean);
begin
inherited SetEnabled(Editing);
......
end;
改成
procedure TForm.SetEnabled(Editing: Boolean);
begin
inherited;
......
end;
不好么？
inherited 后面的SetEnabled(Editing)不多余么？？

翁富大 · 2005-07-22

procedure SetEnabled(Editing: Boolean); override;
procedure TForm.SetEnabled(Editing: Boolean);
begin
inherited SetEnabled(Editing);
......
end;
改成
procedure TForm.SetEnabled(Editing: Boolean);
begin
inherited;
......
end;
不好么？
inherited 后面的SetEnabled(Editing)不多余么？？

ak_2005 · 2005-07-22

这里是一样的。
但是如果有返回值的话就不一样了。

翁富大 · 2005-07-22

可是，写这个程序的人是个高手啊，既然一样，他无缘无故多加句话干什么。另外，你说有返回值就不一样了，能否举个例子，或者说的在清楚些。刚刚已经被你赚到20分了，这次要严格考验你，吼吼～

ak_2005 · 2005-07-22

刚才我说错了吗？！后面还有个'='号啊，你又怎么解释？！看问题要看实质，自己也要动下脑子，不要人云亦云！
-----------------------------------------------------------------
举个例子
function SetEnabled(Editing: Boolean): boolean; override;
function SetEnabled(Editing: Boolean): boolean;
begin
result := inherited SetEnabled(Editing);
......
end;
--------------------------------------------------------------
改成
procedure TForm.SetEnabled(Editing: Boolean);
begin
inherited;
......
end;// 能行吗？！

LSUPER · 2005-07-22

不迷信“高手” ＝^0^＝

翁富大 · 2005-07-22

楼上的大哥语气好硬啊，是不是我上面的话你理解太深了，我没别的意思啊。可能是我没表达好，道个歉先：）

翁富大 · 2005-07-22

另外，别人对此还有看法么，我在等几个小时在结分

ak_2005 · 2005-07-23

sorry，我以为你说我骗了你上一贴的分。
我没别的意思，我想说的是你要认真思考每个人给你回的贴。
如果我让你生气了我表示12分的抱歉！

翁富大 · 2005-07-23

哈哈，看来你真的误解我了，看来我真的没表达好。[^]
我只是跟你开个玩笑而已了，哪有那种意思[

]
好的，接受答案了，揭帖算分，^_^

重写的问题 ( 积分: 40 )

翁富大

Unregistered / Unconfirmed

翁富大

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

翁富大

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

LSUPER

Unregistered / Unconfirmed

翁富大

Unregistered / Unconfirmed

翁富大

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

翁富大

Unregistered / Unconfirmed

Similar threads