【结】请帮忙看下这是哪里的问题**

OAleer

我在业务信息的代码中定义了TOrgURLs的实例lOrgURLs，但在调试时，发现无法查看lOrgURLs的内容，提示“表达式错误：
Undeclared identifier "lOrgURLs"”，不知道是哪里的问题。

lixy

能编译过去代码吗？

OAleer

可以的，编译和运行都不报错，但就是调试时看不到值

OAleer

帮忙解决一下。因为后面的调用有问题，可能与这里有关

lixy

那就用dialogs.showmessage(lOrgURLs);看看值

atiger

把代码贴出来看看呢

OAleer

procedure TWLWHD.SetPersons();
var
  //循环变量
  index:integer;
  lOrgSystem:Org.TOrgSystem;
  lOrgURLs:Org.TOrgURLs;
  //当前环境实例
  lContextCurrent:TContextCurrent;
  //组织单元
  person:Business.Model.Org.TOrgUnit;
  //'创建者'下拉列表项实例
  objPerson:TPerson;
begin
  try
    //获取系统所有操作者的URL
    lOrgURLs := Org.TOrgURLs.Create;
    lOrgSystem := Org.TOrgSystem.Create;
    lOrgSystem.GetOrgURLsByOrgExpr(Org.OrgExpr.OrgSelect(Org.OrgExpr.OrgCondition('*.PSM','','')),lOrgURLs);

    //根据操作者URL获取操作者信息(名称)填充表单中创建者下拉列表
    objPerson := TPerson.Create;
    cmbCreator.Items.Clear;
    for index := 0 to lOrgURLs.Count - 1 do
    begin
      person := lOrgSystem.FindUnit(lOrgURLs.Items[index].BizURL);
      objPerson.ID := person.ID;
      cmbCreator.Items.AddObject(person.DisplayName, objPerson);
    end;
    //创建当前环境实例
    lContextCurrent := Business.Model.TContextCurrent.Create(self.Context);
    //将当前操作者填充为表单中创建者控件的显示内容
    cmbCreator.ItemIndex := cmbCreator.Items.IndexOf(lContextCurrent.Operator.DisplayName);
    //personID := lContextCurrent.Operator.ID;
  finally
    //objPerson.Free;
    lOrgURLs.Free;
    lOrgSystem.Free;
    lContextCurrent.Free;
  end;
end;

OAleer

objPerson是我自定义的一个类的实例，里面只有一个变量ID，用来保存人员的ID

shangxy

。。。

OAleer

我已经解决了，谢谢答复