关于delphi中treeview如何从ini文件中取数据的问题

1)INI文件不是做这个用的，要想取出，如果1次读文件，恐怕只能1行1行读文本文件了，因为不知道节名，如果可以多次读文件，可以先读出节名，然后用Ini读值，碰到[xxx]的格式就开始1个新的人员信息。取出来可以放到内存数组里，也可以clientdataset。

如：

open (f)

while not eof(f)

s=read(f)

if left(s)='[' and right(s)=']' then

a[i++]=substring(s,2,length-1)

end while

for (i=1 to length(a) do

s=a[i]

people[i].name=s

people[i].age=readiniint()

end

2)TreeView1.Items.Add(nil,'刘某某')

3)在treeView的onchange事件里写

建一个ImageList控件，右击，属性，在“图像”里插入图片（你的1.gif），看好他们的索引（Index，默认是1）。然后，代码如下。 ＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Command1_Click() TreeView1.ImageList = ImageList1 '关联Treeview1与Imagelist1 TreeView1.LineStyle = tvwRootLines Dim nodX As Node TreeView1.Nodes.Add , , "a1", "teachername" Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教师姓名", 1) '这个1的意思是刚才设置的图片在ImageList里的索引 End Sub

'****************************************************

'*组名称：SearchFiles

'*组说明：遍历某个目录中指定文件。

'*语法说明：SearchFiles(Path , FileType, ListObj, ImageIndex)

'*语法说明：[Path]：要遍历的路径；[FileType]：文件类型；[ListObj]：指定树形列表控件

'*语法说明：[ImageIndex]：指定树形列表控件图像Index

'*返回值：

'*注意事项：使用树形控件前必须将其初始化。

'*组作者：gaochongjun1

'****************************************************

Function SearchFiles(Path As String, FileType As String, ListObj, ImageIndex As Integer)

Dim Files() As String '文件路径

Dim Folder() As String '文件夹路径

Dim AB, BA, c As Long

Dim sPath As String

sPath = Dir(Path &FileType) '查找第一个文件

Do While Len(sPath) '循环到没有文件为止

AB = AB + 1

ReDim Preserve Files(1 To AB)

Files(AB) = sPath '将文件目录和文件名组合,并存放到数组中

'加入树形列表中

With ListObj

With .Nodes

.Add "a0", 4, Files(AB), Files(AB), "Menu"

End With

End With

sPath = Dir '查找下一个文件

DoEvents '让出控制权

Loop

sPath = Dir(Path &"\", vbDirectory) '查找第一个文件夹

Do While Len(sPath) '循环到没有文件夹为止

If Left(sPath, 1) <>"." Then '为了防止重复查找

If GetAttr(Path &"\" &sPath) And vbDirectory Then '如果是文件夹则。。。。。。

BA = BA + 1

ReDim Preserve Folder(1 To BA)

Folder(BA) = Path &sPath &"\" '将目录和文件夹名称组合形成新的目录,并存放到数组中

End If

End If

sPath = Dir '查找下一个文件夹

DoEvents '让出控制权

Loop

For c = 1 To BA '使用递归方法，遍历所有目录

SearchFiles Folder(c), FileType, ListObj, ImageIndex

Next

End Function

---