Как сохранить дерево в поле типа OLE Object базы Access?

← →
GreySerg (2003-09-17 18:11) [0]

Мастера, подскажите пожалуйста , как сохранить дерево,представленное TreeView, в поле типа OLE Object базы Access ?
А ещё лучше, как сохранить дерево в данном поле, представленное списком элементов даного типа:
TExpDecisionNode = class private FDocuments: TStrings; FIsQuestion: boolean; FText: string; FPK: string; FParentPK: string; public constructor Create; destructor Destroy; reintroduce; property PK: string read FPK write FPK; property ParentPK: string read FParentPK write FParentPK; property IsQuestion: boolean read FIsQuestion write FIsQuestion; property Text: string read FText write FText; property Documents: TStrings read FDocuments write FDocuments; end;

Этот элемент представляет собой узел (вершину) дерева.
Если можно, пример пожалуйста.

← →
Reindeer Moss Eater © (2003-09-17 18:24) [1]

как сохранить дерево,представленное TreeView, в поле типа OLE Object базы Access ?

Сохранить данные в поле можно путем присвоения полю значения. Делается это методом Assign либо оператором :=
Есть еще методы LoadFrom....
Это если ты спрашивал как сохранить.

← →
GreySerg (2003-09-17 18:32) [2]

есть у TreeView метод SaveToStream , но он не может хранить Data , ассоциированное с вершиной , а это как раз и надо

← →
Reindeer Moss Eater © (2003-09-17 18:37) [3]

А кто мешает сохранять данные, лежащие по указателю Data?

← →
GreySerg (2003-09-17 18:42) [4]

как? в OleObject можно сохранить через Stream только

← →
GreySerg (2003-09-17 18:43) [5]

да и TreeView не совсем подойдёт , потому что по этому дереву ещё потом надо ходить

Напишите своего потомка и перекройте SaveTo/LoadFrom Stream.

как? в OleObject можно сохранить через Stream только

TStream.Write конечно

Как сохранить дерево в поле типа OLE Object базы Access? Найти похожие ветки