Помогите разобраться с деревом, 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. Сделал свой тип и все заработало ...

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