Question

我想每个曾经使用过Delphi的VirtualStringTree的人都会同意它是一个很棒的控件。它是一个“虚拟”控件（您的数据必须保存在其他位置）所以我在想什么数据结构最适合这样的任务？ IMO数据结构必须支持层次结构，它必须快速且易于扩展。最简单的实现是使用记录，这就是可以找到的大多数文档所暗示的内容。但是如果你需要做一些快速查找，计算总数等怎么办？您与VirtualStringTree一起使用的数据结构是什么？

EDIT1 ：我正在使用Delphi 2010。

好的，我会尝试提供一些有关我的要求的更多细节。数据大小可以变化很大，从1到数千项。每个项目可以包含多个字符串，整数值。我需要随机访问，我的数据可以在应用程序生命周期中多次更改。良好的性能是非常理想的。我还需要数据保存和重新加载。

EDIT2 ：得到1个答案，所以我会试着评论我的意见。谢谢，Dorin给你答案但是我不认为你的结构很方便。 1）它不处理层次结构。 2）为每个节点分别设置TStringList或TList不是非常有效的IMO。通过这种实现，我只能查找当前节点的数据，但不能有效地搜索整个树。

我认为这个数据结构必须像一棵树。它必须具有能够添加子节点的节点。然后我就可以在OnInitNode事件中获取节点的数据，检查我的节点是否有一些子节点，如果是，则设置ivsHasChildren标志，然后在OnInitChildren事件中设置正确的子节点数。稍后在OnGetText事件中，我可以从我的节点结构中获取所需的数据，并根据Column索引将其设置为CellText。我的想法是拥有一个单独的数据结构，并使用它完成所有需要的操作，而无需使用VirtualStringTree。希望有人明白我的意思:)。

EDIT3 ：我发现了非常有趣的JclTrees单元，乍一看可以用来实现我正在寻找的东西。它属于JCL库。缺乏体面的文档使得很难快速调查它的功能。当我有更多时间时，我可能会更深入地研究它。

Answer 1

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

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

Answer 2

您尚未指定Delphi版本，因此：

我建议使用记录（我不确定他们在哪个版本的Delphi中添加了记录方法，我从D7移到了D2010）所以你可以有类似的东西：

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

如果您的Delphi版本不支持带方法的记录，并且您确实需要节点方法，那么您将不得不使用对象来完成此操作，还可以查看泛型。

由于你只需要容纳几千个项目，我建议使用泛型（不需要重新发明轮子恕我直言），即。

uses ..., Generics.Collections;

type
  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
    ...
  end;

const
  szMyFileHeader = SizeOf(TMyFileHeader);

type
  TMyItemEntry = record
    CountInt: Integer; // number of integer values
    ...
  end;

const
  szMyItemEntry = SizeOf(TMyItemEntry);

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

伪代码，对不起部分代码的时间： - \

a）保存内容：

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

b）加载内容：

读取文件标题 - 以便您知道需要从文件中读取的项目数
为索引执行：= 0到Count -1从文件中读取项目

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

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

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

Answer 3

您可以使用TXMLDocument。

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

此架构

alt text

<?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;
  end;

{ 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;
  end;

{ 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);
    procedure Set_Name(Value: WideString);
    { Methods & Properties }
    property Id: Integer read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property Itemlist: IXMLItemlistType read Get_Itemlist;
  end;

什么数据结构最适合VirtualStringTree？

3 个答案:

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