大虾们帮我看看怎么用类,我是菜鸟(50分)

  • 主题发起人 主题发起人 colacoca
  • 开始时间 开始时间
C

colacoca

Unregistered / Unconfirmed
GUEST, unregistred user!
我先定义了个类
type
BaseClass = class
private
x,y: real;
public
procedure SetXY(a,b:real);
procedure XProcedure(a:real;var b:real);
end;

然后
procedure BaseClass.SetXY(a,b:real);
begin
x:=a
//********出错*******//
y:=b
//********出错*******//
end;

procedure BaseClass.XProcedure(a:real;var b:real);
begin
a:=a+x+y
//********出错*******//
b:=a+b;
end;
创建对象
obBaseClass: BaseClass;
在使用时却出错了
obBaseClass.SetXY(2.0,3.0);
obBaseClass.XProcedure(c,d);

大伙儿帮我看看
 
在你使用之前许初始化该类:
var obBaseClass: BaseClass;
obBaseClass := BaseClass.create
然后
obBaseClass.SetXY(2.0,3.0);
obBaseClass.XProcedure(c,d);

 
对象没创建,在内存中根本不存在你要的内容,怎么能不出错
 
构造先,
 
不要忘了 BaseClass.create
 
多人接受答案了。
 
后退
顶部