【搞定】帮看一,这个错误怎么改~**

刺青

编译都没有错误,在协同下运行就出现了这个错误,如图

刺青

nowname : TContextCurrent;
我把这个定义在implementation下面就出错,定义在某方法下就没错,请问为什么?

alang

定义了对象，但是没有创建这个对象，就访问这个对象的属性或者方法

刺青

应该不是你说的这种情况吧,我的代码如下,但我只要把nowname : TContextCurrent;定义在procedure TJHDDXX.DataSetJHDDSJJFieldChange(DataSet: TDataSet; Field: TDataField);里面就没有错了,我在前面定义的对像的变量,也在方法里面创建了才使用啊
implementation
var
   nowname : TContextCurrent;


procedure TJHDDXX.DataSetJHDDSJJFieldChange(DataSet: TDataSet; Field: TDataField);
begin
     nowname := TContextCurrent.Create(self.Context);
     try
        if (Field <> nil) and (Field.FieldName = 'YJSP') then
            begin
                  DataSetJHDDSJJ.FieldByName['YJSPR'].AsString := nowname.Operator.DisplayName;
            end;
        if (Field <> nil) and (Field.FieldName = 'EJSP') then
            begin
                 DataSetJHDDSJJ.FieldByName['EJSPR'].AsString := nowname.Operator.DisplayName;
            end;
       if (Field <> nil) and (Field.FieldName = 'CWSY') then
            begin
                 DataSetJHDDSJJ.FieldByName['CWSYR'].AsString := nowname.Operator.DisplayName;
            end;
     finally
        nowname.Free;
     end;
end;

alang

那你再Studio中调试运行，看看错误定位在什么地方了

wangyinchang

以前也遇到过这种情况，怎么修改不成．　不过，关闭开发平台后从新进入，就没有了．

atiger

呵呵，这样的指针错可能不是每次都出现，但存在着隐患，说不定运行运行就出来了，或者跟运行到哪些功能有关，所以如果要解决，肯定需要一点一点来跟踪

alang

不会的，这个错误是在特定情况肯定会出现的，你认真看看自己的代码吧

刺青

大哥,直说吧,偶看不出来~

alang

从你给出的代码上，看不出来，建议你用Studio调试运行看看，肯定能找到是在哪里出现这个指针错误的