TreeView里面有3个节点，旁边有4个Edit组件，要实现互访功能

kaituozhe

您好，各位大爷：

请问怎么实现这两个功能：TreeView里面有3个节点，旁边有4个Edit组件，分别点击TreeView的3个节点，4个Edit组件会显示点击这个节点的汉字名称（如，点击第一个节点，第一个节点是5mm银色钢板锻造，旁边的4Edit组件就会显示：5mm，银色，钢板，锻造）
第二个功能，如改变第二个节点4Edit组件里的内容，TreeVieW第二个节点的内容也会改变，谢谢各位指教！

kaixin9611

利用ini配置文件进行储存的基础上实现Treeview和Edit互访功能

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   
7.   System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
   
8.   Vcl.ComCtrls, Vcl.StdCtrls, System.IniFiles, System.StrUtils;
   
9. 
   
10. type
    
11.   TForm1 = class(TForm)
    
12.     TreeView1: TTreeView;
    
13.     Edit1: TEdit;
    
14.     Edit2: TEdit;
    
15.     Edit3: TEdit;
    
16.     Edit4: TEdit;
    
17.     Button1: TButton;
    
18.     procedure FormCreate(Sender: TObject);
    
19.     procedure TreeWrite();//Treeview1节点写入
    
20.     procedure TreeRead();//Treeview1节点读入
    
21.     procedure Button1Click(Sender: TObject);//这个按钮是用来修改Edit后更新Treeview1内容的
    
22.   private
    
23.     { Private declarations }
    
24.   public
    
25.     { Public declarations }
    
26.   end;
    
27. 
    
28. var
    
29.   Form1: TForm1;
    
30. 
    
31. implementation
    
32. 
    
33. {$R *.dfm}
    
34. 
    
35. procedure TForm1.Button1Click(Sender: TObject);
    
36. begin
    
37.   TreeWrite();
    
38.   TreeRead();
    
39. end;
    
40. 
    
41. procedure TForm1.FormCreate(Sender: TObject);
    
42. var
    
43.   ini: TIniFile;
    
44.   I: Integer;
    
45.   a: string;
    
46. begin
    
47. //创建ini文件,初始化ini
    
48.   ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\Config.ini');
    
49.   //判断ini文件是否存在，如果不存在就写入ini文件内容
    
50.   if FileExists(ExtractFilePath(ParamStr(0)) + '\Config.ini') = False then
    
51.   begin
    
52.     ini.WriteString('P0', 'Edit1', '5mm');
    
53.     ini.WriteString('P0', 'Edit2', '银色');
    
54.     ini.WriteString('P0', 'Edit3', '钢板');
    
55.     ini.WriteString('P0', 'Edit4', '锻造');
    
56.   end;
    
57.   //计次循环读出ini文件的内容
    
58.   for I := 1 to 4 do
    
59.   begin
    
60.     a := a + ini.ReadString('P0', 'Edit' + IntToStr(I), '');
    
61.     TEdit(FindComponent('Edit' + IntToStr(I))).Text := ini.ReadString('P0', 'Edit' + IntToStr(I), ''); //这句比较有意思，根据Edit名字寻找Edit控件组，并批量赋值
    
62.   end;
    
63.   TreeView1.Items.AddChild(nil, a);        //程序第一次读出并写入Treeview1节点内容
    
64.   TreeView1.Items.Item[0].Selected := True;  //选中Treeview1第一个节点
    
65. end;
    
66. 
    
67. procedure TForm1.TreeWrite();
    
68. var
    
69.   ini: TIniFile;
    
70.   I: Integer;
    
71. begin
    
72.   //创建ini文件,初始化ini
    
73.   ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\Config.ini');
    
74.   //判断ini文件是否存在，如果存在就写入ini文件内容
    
75.   if FileExists(ExtractFilePath(ParamStr(0)) + '\Config.ini') = True then
    
76.   begin
    
77.     //计次循环写入到ini文件内容
    
78.     for I := 1 to 4 do
    
79.     begin
    
80.       ini.WriteString('P0', 'Edit' + IntToStr(I), TEdit(FindComponent('Edit' + IntToStr(I))).Text);
    
81.     end;
    
82.   end;
    
83. end;
    
84. 
    
85. procedure TForm1.TreeRead();
    
86. var
    
87.   ini: TIniFile;
    
88.   I: Integer;
    
89.   a: string;
    
90. begin
    
91.   ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\Config.ini');
    
92.   if FileExists(ExtractFilePath(ParamStr(0)) + '\Config.ini') = True then
    
93.   begin
    
94.     //如果选中的话，-1就是不选中
    
95.     if TreeView1.Selected.Index <> -1 then
    
96.     begin
    
97.       //计次循环读取ini文件节点内容
    
98.       for I := 1 to 4 do
    
99.       begin
    
100.         a := a + ini.ReadString('P0', 'Edit' + IntToStr(I), ''); //把内容依次读入局部变量a
     
101.         TEdit(FindComponent('Edit' + IntToStr(I))).Text := ini.ReadString('P0', 'Edit' + IntToStr(I), '');
     
102.       end;
     
103. 
     
104.       TreeView1.Items.Item[TreeView1.Selected.Index].Text := a; //向选中的Treeview1的节点写入内容，必须是选中的，没选中就没反应
     
105.     end;
     
106.   end;
     
107. end;
     
108. 
     
109. end.

复制代码

kaixin9611

如果想添加Treeview的节点，还要多写些code
但是以上内容已经解决你所说的问题了

以上代码均用Delphi写出，执行过没问题

kaituozhe

好的，谢谢，你辛苦！