typedef struct MyRec
{
  AnsiString FName, LName;} TMyRec;
typedef TMyRec* PMyRec;//存储结构void __fastcall TForm1::Button1Click(TObject *Sender)//存储
{//用TTreeNodes的AddObject方法保存,用时动态绑定法取出
 PMyRec  MyRecPtr;
 int TreeViewIndex;
 TTreeNodes* pItems; MyRecPtr = new TMyRec;
 MyRecPtr->FName = Edit1->Text;
 MyRecPtr->LName = Edit2->Text;
 TreeViewIndex = StrToInt(Edit3->Text);
 pItems = TreeView1->Items;
 if (pItems->Count == 0)
   pItems->AddObject(NULL, "Item" + IntToStr(TreeViewIndex), MyRecPtr);
 else if ((TreeViewIndex < pItems->Count) && (TreeViewIndex >= 0))      pItems->AddObject(pItems->Item[TreeViewIndex], "Item" + IntToStr(TreeViewIndex), MyRecPtr);
}
void __fastcall TForm1::Button2Click(TObject *Sender)//取用
{
Label1->Caption = PMyRec(TreeView1->Selected->Data)->FName + " " +
                 PMyRec(TreeView1->Selected->Data)->LName;
}