MS SQL varbinary(max) zu Virtual String Tree, welcher Datentyp?

[Aviator]

Zitat von Piro:

Ok das habe ich verstanden.

Folgendes mache ich schon beim VST.

Delphi-Quellcode:

procedure Tfrm_task.vst_task_documentsFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
 Document : TODocuments;
begin
 Document := TODocuments(vst_task_documents.GetNodeData(Node)^);
 Document.Free;
end;

Jetzt weiß ich nicht, wo ich es noch machen soll und vor allem wie?

Die Klasse TODocuments steht ja in Verbindung zum VST. Siehe oben bei Tfrm_task.SQLDataToVST_Documents.

Für einen Hinweis wäre ich dankebar.

Es gibt natürlich mehrere Möglichkeiten ein Objekt im Bezug zu einem VST freizugeben. Die eine Lösung ist die, wie du es in deinem Beispiel machst. Die andere wäre die, dass du dir beim Erstellen alle Objekte in bspw. einer ObjectList speicherst und dann nur noch beim Beenden deines Programmes die ObjectList freigibst, welche dann alle beinhaltende Objekte ebenfalls freigibt. (Sofern OwnsObjects auf true steht).

[Piro]

Moin,

sorry für die späte Antwort. Ich habe eine Lösung gefunden.

Beim Beenden der Form mit dem VST durchlaufe ich nochmal die VST Datenstruktur und gebe den Stream für jedes vorhandene Objekt frei.

Damit geht es.

Danke an alle Beteiligten mich auf den richtigen Weg gebracht zu haben.

Gruß
Sven