关于docview的用法

tanxin

原来在一个窗体中用到得的
业务信息.T表单(docview.doc).datalabel10.visible:=false;
这类代码都没问题，能正常运行，但是现在因为用到这段代码的模块比较多，所以想改为一个公共函数，我是在一个参数组里面写的函数，能编译通过，更换表单也能正常运行，就是有上述格式代码的地方运行时会出错,错误信息：

access violation at addres 01F1DC35  in module 'rtdbg.dll'. read of address 000001FC

请帮忙看看是什么原因？

zfang

业务信息.T表单(docview.doc)换成
(docview.doc as 业务信息.T表单)
然后再运行看看，是否报错。

tanxin

编译能通过，但是运行时还是报一样的错误

zfang

还是报一楼的错误吗？没报其他错误？
因为什么都没变，所以报错是肯定的。

tanxin

同样的代码在一个窗体单元中运行的时候是没有问题的，唯一的区别是在参数组上面不能拉一个docview 控件，但是我在代码中声明并创建了的一个docview类

tanxin

恩，没有报其他错误

zfang

你跟踪一下，看看对象是否空、类型是否匹配等。

tanxin

跟踪到那句代码就报错了，一样的错误，其他地方都没问题

zfang

具体怎么做的呢？贴出代码看看，再不行就只能远程看看了。

tanxin

function TRYJZYYWCSZ.getpzbd(devicetype:integer;modelnum:string):string;
var
bdname:string;
RsDocView:TDocView;

begin
   RsDocView:=Tdocview.Create(self);
   Case devicetype of
          000016://1://路由器
          begin
              SBYWXX.TLYQJL(RsDocView.Doc).DataGrid1.HeaderColor := $0f7eaca;
              SBYWXX.TLYQJL(RsDocView.Doc).DataGrid2.HeaderColor := $0f7eaca;
              SBYWXX.TLYQJL(RsDocView.Doc).DataGrid3.HeaderColor := $0f7eaca;
              SBYWXX.TLYQJL(RsDocView.Doc).DataGrid4.HeaderColor := $0f7eaca;
              if  modelnum='CISCO7609' then
              begin
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Visible:=false;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.Visible:=false;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Visible:=true;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Left:=327;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Top:=153;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.Left:=404;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.top:=150;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Left:=33;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Top:=182;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Left:=107;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.top:=176;

              end else
              if copy(modelnum,1,7)='CISCO12406' then
              begin
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Visible:=false;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.Visible:=false;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Left:=33;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Top:=182;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.Left:=107;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.top:=176;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Left:=327;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Top:=153;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Left:=404;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.top:=150;
              end else
              begin
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Visible:=true;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Visible:=true;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Left:=327;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel13.Top:=153;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.Left:=404;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit13.top:=150;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Left:=33;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel14.Top:=182;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.Left:=107;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit14.top:=176;

                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Left:=327;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataLabel12.Top:=182;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.Left:=404;
                 SBYWXX.TLYQJL(RsDocView.Doc).DataEdit11.top:=178;
              end;
              result:='LYQJL.FORMDOC';
          end;
          //



          000059 ://二层交换机
          begin
              result:='JHJJL.FORMDOC';
          end;
           000060 ://2://三层交换机
          begin
              if  (modelnum='华为 8505') or (modelnum='S9508V') then
              begin
                result:='HW8505BD.FORMDOC';
                if  modelnum<>'华为 8505'  then
                begin
                  (RsDocView.Doc as SBYWXX.THW8505BD).DataLabel11.Visible:=true;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit11.Visible:=true;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel6.Visible:=false;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit6.Visible:=false;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel2.Visible:=false;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit2.Visible:=false;

                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel11.Left:=302;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel11.Top:=142;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataEdit11.Left:=380;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataEdit11.top:=138
                end else
                begin
                  (RsDocView.Doc as SBYWXX.THW8505BD).DataLabel11.Visible:=false;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit11.Visible:=false;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel6.Visible:=true;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit6.Visible:=true;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel2.Visible:=true;
                  SBYWXX.THW8505BD(RsDocView.Doc).Dataedit2.Visible:=true;

                  {SBYWXX.THW8505BD(RsDocView.Doc).DataLabel11.Left:=302;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataLabel11.Top:=168;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataEdit11.Left:=380;
                  SBYWXX.THW8505BD(RsDocView.Doc).DataEdit11.top:=163;  }
                end;
              end else
              begin
                result:='JHJJL.FORMDOC';
              end ;

          end;

          000018://3://有限通信_程控交换机
          begin
              result:='CKJHJJL.FORMDOC';
          end;

          000023://图像
           begin
              result:='TXBD.FormDoc';
          end;
           000024://视频
           begin
              result:='TXBD.FormDoc';
          end;
          000026://特种车辆
           begin
              result:='TZCL.FormDoc';
          end;

           000063 ://8:有线通信_PBX
          begin
              result:='BDPBXBD.FORMDOC';
          end;
           000031 ://8:刀片服务器
          begin
              result:='DPFWQBD.FormDoc';
          end;
            000030 ://8C服务器
          begin
              result:='PCFWQBD.FormDoc';
          end;
            000032 ://8:小型机
          begin
              result:='XXJBD.FormDoc';
          end;
          000041://  一机两用
          begin
              result:='YJLYXTBD.FormDoc';
          end;
          000042://补丁分发
          begin
              result:='BDFFXTBD.FormDoc';
          end;
          000043://病毒监控
          begin
              result:='BDJKYJXTBD.FormDoc';
          end;
           000044://防病毒软件
          begin
              result:='FBDRJSJXTSJJ.FormDoc';
          end;
            000045:// 入侵监测系统
          begin
              result:='RQJCXTBD.FormDoc';
          end;
          000046://防火墙系统
          begin
              result:='FHQBD.FormDoc';
          end;
            000047://PKI/PMI系统
          begin
              result:='PKI_PMIXTBD.FormDoc';
          end;
           000048://漏洞扫描系统
          begin
              result:='LDSMXTBD.FormDoc';
          end;
          000049://违规网站及信息扫描系统
          begin
              result:='WGWZJXXSMXTBD.FormDoc';
          end;

          000410://违规网站及信息扫描系统
          begin
              result:='SJXTBD.FormDoc';
          end;
          000090://磁盘阵列
           begin
              result:='CPZLBD.FormDoc';
           end;
          000091://磁带库
           begin
              result:='CDKBD.FormDoc';
           end;
          000015://5://软交换
          begin
              result:='RJHST.FORMDOC';
          end;
          000057: //4://中继网关
          begin
              result:='WGJL.FORMDOC';
          end;
           000058: //4://语音网关
          begin
              result:='YYWG.FORMDOC';
          end;
          000070://空调
           begin
              result:='KDXTPZBD.FormDoc';
          end;
          000071://动力
           begin
              result:='DLXTBD.FormDoc';
          end;
          000080://门禁
           begin
              result:='MJXTBD.FormDoc';
          end;
          000050://9://KVM
          begin
              result:='KVMJLBD.FORMDOC';
          end;


          000092://光纤交换机
           begin
              result:='GXJHJPZ.FormDoc';
         end;
          000052://防雷
           begin
              result:='FLXTBD.FormDoc';
          end
         else
          begin
         //000027://传输系统
            result:='KBBD.FormDoc';
          end;
       end;
end;