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

Помогите разобраться с деревом, PLZ!   Найти похожие ветки 

← →
GobliNGuT   (2002-12-19 15:00) [0]

Пишу клиента для сервера новостей, и из полученных данных (группа новостей, а в ней заголовки) формирую дерево. Узлы первого уровня - Группы, второго - заголовки. Проблема заключается в следующем. Первый уровень формируется нормально, а вот со вторым ... где-то идет ошибка формирования данных узла.
Вот собственно код каким я формирую:

procedure TForm1.NNTPHeaderList(Sender: TObject);
Var
pHR:^TPostRecordType;
begin
New(pHR);
pHR^:=NNTP.HeaderRecord;
Tree.Items.AddChildObject(Tree.Selected,pHR^.PrSubject,pHR);
Tree.Update;
Tree.Selected.Expand(true);
end;

В дереве все отображается нормально. Но потом при попытке обратиться к Node.Data, я получаю данные последней новости.

---

← →
Skier ©   (2002-12-19 16:40) [1]

>GobliNGuT
1) как объявлена TPostRecordType ?
2) И что есть NNTP.HeaderRecord ?

---

← →
GobliNGuT   (2002-12-22 09:44) [2]

TPostRecordType - стандартный тип заголовка новости
NNTP.HeaderRecord собственно сам заголовок этого типа. я просто выделяю память под заголовок, дублирую его данные. Первый дубликат будет изменен при следующей новости, а продублированный заносится в дерево (а именно Node.Data)

---

← →
Cobalt ©   (2002-12-22 14:38) [3]

попробуй вместо New - Getmem, или вместо record использовать class. У меня была похожая трабла с записями. перешел на классы - все пучком, дерево заработало.

---

← →
GobliNGuT   (2002-12-30 19:07) [4]

Все, заработало. А глюк был почему-то из-за использования типа TPostRecordType. Сделал свой тип и все заработало ...

---

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

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



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