| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ruslan_as ©   (2010-06-11 09:37:00) 

Заполняю 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:52:00) [1]

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

---

MBo   (2010-06-11 09:45:00) [2]

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

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

---

ruslan_as   (2010-06-11 09:38:00) [3]

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

---

Наверх