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

Данные в TreeView   Найти похожие ветки 

← →
tytus ©   (2004-03-15 10:05) [0]

Добрый день всем. Вот пример программки для записи данных в элементы TreeView. Имеются: TreeView(TV1), две кнопки - первая для заполнения TV1, вторая - для вывода текста в Memo1 взятого из данных TV1.
//Описание нового типа. Взято из хелпа.
type
 PMyText=^TMyText;
 TMyText=record
   Text:string;
 end;
//Заполняем TV1 и выводим текст в Memo1.
procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 MyTextPtr:PMyText;
begin
for i:=1 to 10 do
begin
New(MyTextPtr);
MyTextPtr^.Text:="DATA_"+IntToStr(i);
TV1.Items.AddChildObject(TV1.Items[0],"Items_"+IntToStr(i),
       MyTextPtr);
Memo1.Lines.Add("""+MyTextPtr^.Text+"""+"  "+
       "Size="+IntToStr(SizeOf(MyTextPtr)));
Dispose(MyTextPtr);
MyTextPtr:=nil;
end;
end;//Взято из хелпа TreeView.AddObject.
//Теперь самое непонятное - как показать в мемо строку
//взятую из указателя в элементе TV1?
procedure TForm1.Button3Click(Sender: TObject);
var
 s:string;
begin
s:=PMyText(TV1.Items[5].Data)^.Text;
Memo1.Lines.Add(s);
end;
//в результате - в мемо пустая строка...
В хелпе дан такой пример но с заголовком метки.

---

← →
Вованчик ©   (2004-03-15 11:39) [1]

Попробуй убрать вот это:
Dispose(MyTextPtr);
MyTextPtr:=nil;

---

← →
tytus ©   (2004-03-15 13:32) [2]

>Вованчик
Да, я убрал эти операторы (Сам докумекал, потуму как долго никто не отвечал...)
Получается, что указатели в TreeView содержат адреса выделенные процедурой NEW, а я их тут же освобождал.
Теперь все работает, а при выходе из программы в обработчике OnClose проверяю:
if TV1.Items[i].Data<>nil then
 begin
   Dispose(TV1.Items[i].Data);
   TV1.Items[i].Data:=nil;
 end;

---

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

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



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