方法override的问题(100分)

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-10

• #1

TY = CLASS
PRIVATE
PUBLIC
CONSTRUCTOR Create
VIRTUAL
ABSTRACT;
FUNCTION bLoadFromFile(sFile: STRING): Boolean
VIRTUAL
ABSTRACT
//从文件导入,成功返回True,失败返回False
PROCEDURE Show(Canvas: TCanvas)
VIRTUAL
ABSTRACT
//在Canvas上显示
END;

TQhY = CLASS(TYk)
PRIVATE
PUBLIC
FUNCTION bLoadFromFile(sFile: STRING): boolean
OVERRIDE;
PROCEDURE Show(Canvas: TCanvas)
OVERRIDE
//在Canvas上显示
CONSTRUCTOR Create
OVERRIDE;
DESTRUCTOR Free;
END;

procedure KKK;
VAR Y : TY;
begin
Y := TQhY.Create;
IF Y.bLoadFromFile('c:/a.img') THEN
Y.Show(image1.Canvas);//*****出错***********
end;


请问,上述代码为什么会在有*号的一行出错?

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-11

• #2

我想不明白的是为什么Y.bLoadFromFile调用没有问题,而Y.Show就会出现
异常

 

T

tomato

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-11

• #3

为什么不把声明
VAR Y : TY;
换成
VAR Y : TQhY;
？
有办法跟踪Show的实现细节吗？是不是在Show内部出现的问题？

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #4

上面的代码中,类QThY的声明应为:
TQhY = CLASS(TY)
PRIVATE
PUBLIC
FUNCTION bLoadFromFile(sFile: STRING): boolean
OVERRIDE;
PROCEDURE Show(Canvas: TCanvas)
OVERRIDE
//在Canvas上显示
CONSTRUCTOR Create
OVERRIDE;
DESTRUCTOR Free;
END;

Show内部很简单,
Canvas.Rectangle(0, 0, 100, 100);
就这么一个语句.
至于不声明为var Y:TQhY的原因,是因为TY可能会有很多继承类,每一个类都不太相同,但都
要调用bLoadFromFile这个方法,我想这样做:
Y := TQhY.Create;
Y.bloadfromfile()
Y.free;
Y:=TAY.Create;//假定TAY也是TY的继承类
Y.bloadfromfile()
Y.free;

目的是判断到底一个文件是哪一个类的实例保存的

 

M

majorsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #5

我想是TQhY.show实现的问题。
你的这个用法本身是没有问题的。

 

T

tomato

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #6

报错信息？
把Canvas.Rectangle(0, 0, 100, 100);暂时屏蔽掉再看看。

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #7

上面看不出任何问题，
你在一Form的canvas上Show试试！
y.show（canvas);
image1在含有picture的情况下的canvas是禁止画的，
你没有给出代码，实在难以判断

 

L

let_it_be

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #8

更override有什么关系？
是不是其他问题？

 

D

Dr.johns

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-14

• #9

应该不是override的问题，是在show的实现上有问题吧，把代码贴全一点看看。你的代码看不出Image1到哪去关联a.bmp。

 

新

新手101010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #10

晕
在TY类中，根本就没有对FUNCTION bLoadFromFile(sFile: STRING): Boolean
进行实现
当然错了

 

L

liuchengr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #11

procedure KKK;
VAR Y : TY;
begin
Y := TQhY.Create;
IF Y.bLoadFromFile('c:/a.img') THEN
// Y.Show(image1.Canvas);//*****出错***********
image1.Canvas.Rectangle(0, 0, 100, 100);
end;
这样你再试试看

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #12

Dr.johns,let_it_be,majorsoft,xuxiaohan的思路都是对的,上面的代码没有问题,
是我在实现bLoadFromFile时出错引起的

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #13

多人接受答案了。