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

Как сохранять объект в 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]

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

---

← →
jack128 ©   (2004-03-10 09:24) [4]

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

---

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

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



Память: 0.45 MB
Время: 0.023 c