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