Не могу получить значение

← →
ruslan_as (2010-06-11 09:37) [0]

Заполняю TreeView1:

procedure TfmNSIPodrazd.Button1Click(Sender: TObject);
var Node, NodeChild :TTreeNode;
begin
TreeView1.Items.Clear;
DM.PODRAZD.First;

while not DM.PODRAZD.Eof do
begin
Node:=TreeView1.Items.AddObject(nil, DM.PODRAZDN_PD.AsString, Pointer(DM.PODRAZDK_PD.AsString));
if DM._podrazd.RecordCount>0
then begin
while not DM._podrazd.Eof do
begin
TreeView1.Items.AddChildObject(Node,DM._podrazdN_PD.AsString,Pointer(DM._podrazd K_PD.AsString));//Добавляет ветку
DM._podrazd.Next;
end;
end;

DM.PODRAZD.Next;
end;//while not DM.PODRAZD.Eof do

end;

Дерево создалось.
Пытаюсь его получить Data в событии Expanded

procedure TfmNSIPodrazd.TreeView1Expanded(Sender: TObject;
begin
HSShowMessage(IntToStr(Integer(TreeView1.Items.Item[1].Data )));
end;
end;

← →
ruslan_as (2010-06-11 09:38) [1]

Получаю какое-то левое значение (большое число)
Где я ошибаюсь?

← →
MBo © (2010-06-11 09:45) [2]

...Pointer(DM.PODRAZDK_PD.AsString));
указывает куда попало (на временные строки, локальные в данной процедуре). Под каждую строку нужно выделять память.

(IntToStr(Integer(TreeView1.Items.Item[1].Data )));
Если предполагалось хранить строки, то почему интерпретируется как Integer?

← →
ruslan_as (2010-06-11 09:52) [3]

Виноват. Не доглядел!
MBo Спасибо!
Вопрос закрыт.

Не могу получить значение Найти похожие ветки