Вниз
Скачать: CL | DM;

Как сохранить дерево в поле типа 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 не совсем подойдёт , потому что по этому дереву ещё потом надо ходить


← →
Sandman25 ©   (2003-09-17 18:46) [6]

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


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

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

TStream.Write конечно



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
3-27402
duke2
2003-09-18 07:31
2003.10.09
Соединение с InterBase с раб.места происходит 100 сек при пустой


14-27657
Daniel
2003-09-22 19:04
2003.10.09
Я что-то не пропустил, Этап 6 уже был?


14-27640
Жук
2003-09-19 14:20
2003.10.09
Тяпница на дворе...


14-27633
Карелин Артем
2003-09-23 09:40
2003.10.09
Где скачать программу для смены битрейта mp3?


3-27374
deadbitch
2003-09-17 23:19
2003.10.09
Чтение из Excel-книги в Дельфи




   Наверх