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);
大伙儿帮我看看
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);
大伙儿帮我看看