在Delphi中的TreeView中保存多个数据

最新推荐文章于 2020-12-24 00:42:48 发布

genispan

最新推荐文章于 2020-12-24 00:42:48 发布

阅读量1.6k

点赞数

文章标签： delphi

本文链接：https://blog.csdn.net/genispan/article/details/4205956

版权

type
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRecPtr: PMyRec;
  TreeViewIndex: LongInt;
begin
  New(MyRecPtr);
  MyRecPtr^.FName := Edit1.Text;
  MyRecPtr^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    if Items.Count = 0 then
      Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
    else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then

      Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;