【结贴】文档数据集打开的问题

rzport_lq0

在一个功能里面引用了 文档关联信息，功能里面放了一个数据集代理指向了 文档关联表 ，只要代码打开这个数据集就出现这个提示：

在计算表达式的时候产生异常，类型：“EAccessViolation”，内容：
Access violation at address 01C0DC35 in module 'rtdbg.dll'. Read of address 00000004。

出错的地方在  业务模型/协同系统/文档/文档信息 的这句上面。
  if FFileExtNameAndImageIndexList.IndexOfName(AExtName) >= 0 then

jiahaiming

是直接调试运行的功能还是从初始化运行 的？

rzport_lq0

初始化运行的

zfang

调试跟踪一下，FFileExtNameAndImageIndexList这个对象是否为空？

rzport_lq0

下图所示：

jiahaiming

楼主，给我看下这个函数的完整定义。

rzport_lq0

这个是你们系统库的函数：
function TDocImageListProvider.GetImageIndexByExtName(const AExtName: string): Integer;
var
  lIndex: Integer;
  lSmallIcon, lLargeIcon: TIcon;
begin
  if FFileExtNameAndImageIndexList.IndexOfName(AExtName) >= 0 then
    Result := SysUtils.StrToInt(FFileExtNameAndImageIndexList.Values[AExtName])
  else
  begin
    lLargeIcon := TIcon.Create;
    lSmallIcon := TIcon.Create;
    try
      jsGraph.GetFileIcon(AExtName, lLargeIcon, lSmallIcon);

      lIndex := 0;
      if FLargeImageList <> nil then
      begin
        lIndex := FLargeImageList.AddIcon(lLargeIcon);
        FLargeImageList.AddIcon(lLargeIcon);
      end;
      if FSmallImageList <> nil then
      begin
        lIndex := FSmallImageList.AddIcon(lSmallIcon);
        FSmallImageList.AddIcon(lSmallIcon);
      end;
      Assert(lIndex <> 0, '');
      FFileExtNameAndImageIndexList.Add(SysUtils.Format('%s=%d', [AExtName, lIndex]));
      Result := lIndex;
    finally
      lSmallIcon.Free;
      lLargeIcon.Free;
    end;
  end;
end;

jiahaiming

TDocImageListProvider是个空对象
看看你出错时的调用栈。

rzport_lq0

完整的调用栈信息如下：
TDocImageListProvider::GetImageIndexByExtName
TDocImageListProvider::GetImageIndex
TRelevancyGrid::AddFileImageToColumn
TRelevancyGrid::dsbRelevancyCalcFields
TRelevancyGrid::.ctor
TSWBD::.ctor
TMAINFORM::BizFormCreate
TFuncManager::InternalRunFunc
TFuncManager::RunTasks
TFuncManager::RunTasks
TFuncManager::RunTask
TWSRWZM:oTask
TWSRWZM::TreeList1DblClick

但是实际上运行到下图所示位置（文档关联网格的这个函数AddFileImageToColumn），就出现空对象了

lixy

在procedure TRelevancyGrid.FormDocCreate(Sender: TObject); 中设置断点，看看FDocImageListProvider的创建代码有没有被正常执行。