环境链问题？

crskyp

function THTWJSHform.getDept:string;
var
  lContextCurrent :TContextCurrent;
begin
  result :='' ;
  lContextCurrent :=TContextCurrent.Create( context);
  try
    result :=lContextCurrent.Dept.ID ;
  finally
    lContextCurrent.Free ;
  end;
end;

为什么在调试状态下上面代码会报错？

zfang

初始化运行

crskyp

不是初始化运行，是单独运行一个功能的时候？
这个情况是否正常？

zfang

是的。要初始化运行调试。

crskyp

能说下原因吗，为什么这样设计？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=19270
2楼