[delphi]用treeview如何返回首个节点的值？

Question

用treeview控件，读取一个ini文件后，如何返回文件中首个节点的值。我的代码如下，但是是错的，请教如何改正procedure TForm2.openClick(Sender: TObject);//点击打开按钮
begin
  if dlgOpen1.Execute then
    tv1.LoadFromFile(dlgOpen1.FileName);
    ShowMessageFmt(tv1.Items[0].Data);//showMessage方法肯定不行
end;

Answer 1

ShowMessageFmt(tv1.Items[0].text);data是一个指针，用于指向节点对应的数据块，如果有而且设置了的话

Answer 2

这个我知道啊，但是怎么实现我说的那个功能呢，用Tinifile类么？能不能给我举个简单的例子。

Answer 3

ini格式本来就不是给treeview使用的
tv需要的是每行开头有空格或tab缩进的多行文本
ini一般不会开头有空格或tab的

Answer 4

那我应该用什么方法把它读出来并显示在treeview里？

Answer 5

  PZdRecord = ^TZdRecord;  TZdRecord = Record 
    Zdauto:     string;   
    name:       WideString;   
    autonum:    string;   
    Node:     TTreeNode;
  End ; FZdRecord: array of TZdRecord ;  i := 0;
  while not DataSet1.Eof do
  begin
    FZdRecord[i].Zdauto := DataSet1.FieldValues['autonum'];
    FZdRecord[i].name := DataSet1.FieldValues['name'];
    FZdRecord[i].autonum := '';
    DataSet1.Next;
    i := i+1;
  end;  for j := 0 to Rows - 1 do
  begin
    FZdRecord[j].Node :=
        ZdTree.Items.AddChildObject(nil, FZdRecord[j].name, @FZdRecord[j]);
  end ;PZdRecord(ZdTree.Items[i].Data)^.autonum //读取