问 什么数据结构最适合VirtualStringTree？

EN

好的，因为给出的答案没有解决我的问题，我编写了我自己的树数据结构，它模仿TVirtualStringTree并处理我在问题中提到的所有问题。现在，我可以选择只使用我的数据结构，其中的所有更改都将自动更新VirtualStringTree。我想稍后我会上传源代码并在这里发布链接。谢谢你的回答。

编辑:我已经将源代码上传到Google代码： svTrees 。有一个演示展示了它是如何工作的。

您还没有指定Delphi版本，因此：

我建议使用记录(我不确定他们在哪个版本的Delphi中为记录添加了方法，我从D7转到了D2010)，这样您就可以使用以下内容：

type
  TMyRecordWithMethods = record
    function GetMeAResult: Integer;
    procedure DoSomething(const AInParam: Integer; var AOutParam: Integer);
  end;

如果您的Delphi版本不支持带有方法的记录，并且确实需要节点的方法，那么您必须使用对象来完成这一任务，还可以查看泛型。

由于您只需要保存几千个项目，我建议使用泛型(不需要重新发明轮子IMHO)。

uses ..., Generics.Collections;
  TMyNode = class(TObject)// you can leave this out if you like
    MyIntList: TList<Integer>; // you can do lookups, you have to implement your own saving/loading methods
    MyStringList: TStringList or TList<string>; // you can do lookups in both cases, use TStringList for save/load of data
  end;

现在假设您希望存储虚拟树中的所有项，并在以后加载它们，您可以通过定义自己的文件结构来做到这一点，即

type
  TMyFileHeader = record
    CountItems: Integer; // number of items in the tree
const
  szMyFileHeader = SizeOf(TMyFileHeader);
  TMyItemEntry = record
    CountInt: Integer; // number of integer values
const
  szMyItemEntry = SizeOf(TMyItemEntry);

现在您需要实现加载和保存，我建议使用TFileStream保存和加载--非常简单，

伪代码，很抱歉没有时间对部分代码:-\

( a)保存内容：

• 保存TMyFileHeader变量中的项数并将其写入文件
• 对于树中的每个项，保存整数列表，保存字符串列表。

( b)加载内容：

• 读取文件头--以便您知道需要从文件中读取多少项。
• 执行索引:= 0以计数-1从文件中读取项

注意:您可以将字符串列表从每个项直接保存到文件流中的当前位置，但是通过以下方法直接保存它是明智的：

FileStream.WriteBuffer(PChar(AStringList.Text)^, Length(AStringList.Text) * SizeOf(Char));

我希望这有帮助，代码的实际实现取决于你，玩得开心！！

您可以使用TXMLDocument。

如果您想要更多地控制您输入的内容，我建议您创建一个xsd，描述您想要的结构，并使用XML数据绑定向导来生成您可以使用的Delphi代码。

这个模式

​

​

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified">
    <xs:complexType name="itemType">
        <xs:sequence>
            <xs:element name="id" type="xs:int"/>
            <xs:element name="name" type="xs:string"/>
            <xs:element name="itemlist" type="itemlistType" minOccurs="0"/>
        </xs:sequence>
    </xs:complexType>
    <xs:complexType name="itemlistType">
        <xs:sequence>
            <xs:element name="item" type="itemType" minOccurs="0" maxOccurs="unbounded"/>
        </xs:sequence>
    </xs:complexType>
    <xs:element name="root">
        <xs:complexType>
            <xs:sequence>
                <xs:element name="itemlist" type="itemlistType"/>
            </xs:sequence>
        </xs:complexType>
    </xs:element>
</xs:schema>

将为您提供在delphi中使用的这些接口。

  IXMLRoot = interface(IXMLNode)
    ['{16C6C960-58B7-400C-9E46-7ACC7BEF276F}']
    { Property Accessors }
    function Get_Itemlist: IXMLItemlistType;
    { Methods & Properties }
    property Itemlist: IXMLItemlistType read Get_Itemlist;
{ IXMLItemlistType }
  IXMLItemlistType = interface(IXMLNodeCollection)
    ['{59F80BAC-887E-48DF-8288-95276BF9DCE7}']
    { Property Accessors }
    function Get_Item(Index: Integer): IXMLItemType;
    { Methods & Properties }
    function Add: IXMLItemType;
    function Insert(const Index: Integer): IXMLItemType;
    property Item[Index: Integer]: IXMLItemType read Get_Item; default;
{ IXMLItemType }
  IXMLItemType = interface(IXMLNode)
    ['{1218DD35-C3EF-40E6-831A-1A4AA0782C36}']
    { Property Accessors }
    function Get_Id: Integer;
    function Get_Name: WideString;
    function Get_Itemlist: IXMLItemlistType;
    procedure Set_Id(Value: Integer);