如何定义具有动态数据结构的TVirtualStringTree

Question

我想动态加载并显示到TVirtualStringTree中，数据来自一些不同的SQL表。这意味着每列的标题和内容每次都包含不同类型的数据。

我的问题是如何在内存使用、记录的定义和这种情况下的指针方面进行优化。

我的想法是这样做：

type
  TDataType = (dtUnknown, dtString, dtInteger, dtText, dtFloat, dtDateTime, dtDate, dtTime, dtBoolean);
  TData = record
    DataType: TDataType;
    AsString: String;
    AsInteger: Integer;
    AsText: TStrings;
    AsWord: Word;
    AsDateTime: TDateTime;
    AsDate: TDate;
    AsTime: TTime;
    AsBoolean: Boolean;
  end;
  TTreeData = array of TData;
  PTreeData= ^TTreeData;

实际上，记录中只有两个字段将包含数据：DataType（一直）和第二个字段，取决于定义的DataType（例如AsString、AsInteger）。当节点被初始化时，其他字段也会被分配为内存吗？此外，我不喜欢DataType被分配给每个节点的事实。必须有一种简单的方法来优化此记录。

请提出一些建议。

Answer 1

当我需要做这样的事情时，我会在TData记录中使用case语句。

类似的东西

type
   TData = record
      case DataType: TDataType of
       dtUnknown:
         (AsUnknown: ???);
       dtString:
         (AsString: string);  // this is incorrect, string (and some others are not allowed)
       dtInteger:
         (AsInteger: Integer);
       ... and so on
         end;
      end;

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Structured_Types#Variant_Parts_in_Records

看看TVarRec。Delphi在Format语句中实现"array of const"变量ans时使用开放数组TVarRec。

您可能只需要VirtualStringTree中的两列。一个用于类型，另一个用于值（表示为字符串）