帮我看看这个问题啊，关于面向对象类定义里面的一个小问题(50分)

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #1

unit U_LBOperate;
interface
uses extctrls,classes;
type TLBOperate=class(Timage)
private
ShapesNum:integer;
procedure SetShapesNum(AShapesNum:Integer);
public
Procedure AddShape;
published
shapes:Integer read ShapesNum write setShapesNum;
end;
implementation
procedure TLBOperate.SetShapesNum(AShapesNum: Integer);
begin
if ShapesNum<>-1 then
shapesNum:=AShapesNum;
end;

end.

每次编译都说published里面的shapes不是一个类，是不是我的面向对象理解有错啊。

 

J

JJams_King

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #2

试一下：
published
property shapes:Integer read ShapesNum write setShapesNum;

 

M

mikedeakins

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #3

??

 

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #4

我想知道，如何从主程序，通过我设置的shapes把参数传递进来，

btw：主程序我用一个combobox来传递数据。

 

吴

吴明星

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #5

已经可以使用shapes属性了，就像使用一个变量了一样。

 

A

addie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #6

JJams_King说的对，你忘了property这个关键字了。

 

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #7

接受答案了.

 

A

addie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #8

应该分JJams_King一半分的。