Как сохранять объект в TreeView?

← →
tytus © (2004-03-10 00:07) [0]

Доброй ночи всем. Ситуация такая:
var
SomeObject:^Boolean;
begin
New(SomeObject);
SomeObject^:=true;
TV.AddChildObject(TV.Items[0],"Text",SomeObject);
...
end;
А в конце в обработчику формы OnClose написать
TV.SaveToFile("C:\SomeFile");
то как мне сохранять SomeJbject?
Неужели читать свойство, создавать текстовый файл с именами узлов плюс "True"или"False" а при открытии заново все прописывать?

← →
jack128 © (2004-03-10 00:27) [1]

TV.AddChildObject(TV.Items[0],"Text",Pointer(True));

← →
tytus © (2004-03-10 00:49) [2]

>jack128
Хорошо.
А в данном коде действительно ли выполняется условие соответствия данных указателей Data и Pointer(True)? (Код работает)
procedure TMaPr.TVClick(Sender: TObject);
begin
SelectedIndex:=(Sender as TTreeView).Selected.AbsoluteIndex;
if TV.Items[SelectedIndex].Data=Pointer(true) then
SB.Panels[1].Text:=SelectedName
else
SB.Panels[1].Text:="FALSE";

end;

← →
tytus © (2004-03-10 00:56) [3]

да, таки выполняется условие соответствия.
А ВОТ В ФАЙЛ ДАННЫЕ НЕ ПИШУТЬСЯ!

Да, я ошибся данные не пишутся, придется тебе ручками это организововать. В какчестве примера можешь посматреть как это реализовано в TTreeNodes.WriteData() (c сожелению это закрытый метод и напрямую его использовать не удастся)..

Как сохранять объект в TreeView? Найти похожие ветки