具有检错和纠错功能的编码是 机构设置及编码功能的实现（三）

机构设置及编码功能的实现（三）  

    为实现在选取Treeview控件中某个节点时在右边文本框中显示它的相应数据 应为Treeview的onClick事件添加如下代码     // 显示选中的某个节点的全部信息     procedure Tmain TreeView Click(Sender: TObject);     var     temp:integer;     pnode:TTreeNode;     begin     //显示当前所选取的节点的名称 也就是单位名     edit Text:=treeview Selected Text;     //显示当前选取节点的父节点的名称 也就是上级单位名     //如果当前选取的时节点时第一个主节点 则直接显示 省医药集团     if treeview Selected Parent Index<> then     edit Text:=treeview Selected Parent Text     else     edit Text:= 省医药集团 ;     //显示选中的节点的级号和编号     edit Text:=mytable[treeview Selected AbsoluteIndex+ ];     temp:=length(edit Text) ;     temp:=round(temp/ );     edit Text:=inttostr(temp);     //index是指某单元在该级别中的序号 而absolute则是在整个树中的绝对序号     //将储存在字符串数组中的 与当前节点相对应的信息提取出来 显示在窗体上     if treeview Selected Parent index<> then     edit Text:=mytable[treeview Selected Parent AbsoluteIndex+ ]     else     edit Text:= ;     //允许对某个所选取的节点进行删除 修改名称 增加子节点等功能     button Enabled:=true;     button Enabled:=true;     button Enabled:=true;     button Enabled:=true;     end;