1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
   | void __fastcall TMainForm::VTreeSaveNode(TBaseVirtualTree *Sender,
      PVirtualNode Node, TStream *Stream)
{
        int Len;
        ptrTestRec PtrTestName;
 
        PtrTestName = (TestRec *) VTree->GetNodeData(Node);
        Len = PtrTestName->NodeTitle.Length();
        Stream->Write(&Len, sizeof(Len));
        Stream->Write(&PtrTestName->NodeTitle, Len);
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::VTreeLoadNode(TBaseVirtualTree *Sender,
      PVirtualNode Node, TStream *Stream)
{
        int Len;
        ptrTestRec PtrTestName;
 
        PtrTestName = (TestRec *) VTree->GetNodeData(Node);
        Stream->Read(&Len, sizeof(Len));
        Stream->Read(&PtrTestName->NodeTitle, Len);
}
//--------------------------------------------------------------------------- | 
Partager