pascal里，私有成员怎样用？菜鸟问

Question

简要说明一下：
一开始定义了类
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;然后调用函数就出错
编译能通过

Answer 1

因为你在给a,b赋值的时候还没有创建BaseClass类的对象实例，a,b还没有分配内存空间，你就给他赋值当然出错了!

Answer 2

"编译能通过"是因为你的错误是一个运行期错误，语法本身没有毛病！
应该在赋值之前
var
  bc:BaseClass
 begin
   bc:=BaseClass.create;
 end;