So definieren Sie einen TVirtualStringTree mit dynamischer Datenstruktur

Question

Ich möchte Daten aus verschiedenen SQL-Tabellen dynamisch laden und in einem TVirtualStringTree anzeigen. Dies bedeutet, dass der Header und der Inhalt jeder Spalte jedes Mal unterschiedliche Arten von Daten enthalten.

Mein Problem ist, wie in Bezug auf Speichernutzung, die Definition des Datensatzes und den Zeiger für diesen Fall zu optimieren.

Mein Denken war es wie dies zu tun:

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; 

In der Praxis nur 2 Felder aus dem Datensatz werden Daten enthalten: DataType (die ganze Zeit) und ein zweites Feld, hängt von den DataType definiert (zB AsString, AsInteger). Werden auch die anderen Felder als Speicher belegt, wenn Node initialisiert wird? Auch mag ich nicht, dass die DataType jedem Knoten zugeordnet ist. Es muss einen einfachen Weg geben, diesen Datensatz zu optimieren.

Bitte einige Vorschläge.

Answer 1

Wenn ich so etwas tun muss, verwende ich eine case-Anweisung im TData-Datensatz.

So etwas wie

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

Werfen Sie einen Blick auf TVarRec. Delphi verwendet offene Arrays TVarRec bei der Implementierung von 'array of const' Variablen und in der Format-Anweisung.

Sie benötigen wahrscheinlich nur zwei Spalten im VirtualStringTree. Eine für den Typ und andere für den Wert (dargestellt als String)