Undeclared identifier: 'TTreeView'('ttreenode')

[boshki]

Здраствуйте

procedure start(tree:TTreeView);
var
node:ttreenode;
begin
node:=tree.items.getfirstnode;
end;

[Error] Unit2.pas(29): Undeclared identifier: 'TTreeView'
[Error] Unit2.pas(31): Undeclared identifier: 'ttreenode'

почему так?
в первом юните таких ошибок не возникает

[Valio]

Что написанно в Uses?
Где это всё вообще?

[boshki]

uses unit1
эта часть кода во втором юните, treeview в первом

[Valio]

ttreenode объявить как глобальную переменную, а в uses добавить модуль содержащий описание класса TTreeView.

[veniside]

> ttreenode объявить как глобальную переменную

этоещёзачем

> а в uses добавить модуль содержащий описание класса TTreeView

ComCtrls он называется

[Valio]

Сообщение от veniside

> ttreenode объявить как глобальную переменную

этоещёзачем

Я думал что это самописный класс автора и что он его объявил в первом юните. Неочень я знаком с этим компонентом.

Тогда не надо )

[veniside]

> Я думал что это самописный класс автора и что он его объявил в первом юните

даже в этом случае смысл описывать свой класс как глобальную переменную стремится к абсолютному нулю )

> Тогда не надо )

именно )

[boshki]

спасибо)
и сразу еще одна проблемка возникла

procedure tform2.start(tree:TTreeView);
var
node:ttreenode;
begin
node:=tree.items.getfirstnode;
while node <> nil do
   begin
   form2.cbGroup.Items.Add(node.text);
   end;
end;

проект компилируется, запускается, но не отображается на экране, хотя в процесах висит, что делать?

[veniside]

> что делать?

прекратить запускать бесконечные циклы.
У условия "while node <> nil do" нет никаких шансов стать false до тех пор, пока node не меняется внутри цикла.

[boshki]

спасибо)
я косяк, забыл вот эту строчку написать)

node:=node.getNextSibling;