Помогите с функцией

[Родион]

При таком вызове работает

procedure TForm1.CatLabelClick(Sender: TObject);
// СТРОИМ ДЕРЕВО КАТЕГОРИЙ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!! НАЧАЛО
var
CatCount:integer; //количство записей в таблице категорий
MenuCount:integer; //количство записей в таблице записей меню
tnod: TTreeNode; //точки в дереве
mnod: TTreeNode; //точки в дереве
itnod: integer; //для счетчика
i:integer; //для счетчика
begin
MenuCatSource.Enabled:=False;
MenuCatSource.Enabled:=True;
MenuTreeView.Visible:=False;
MenuItemSDataSet.Active:=False;
MenuItemSDataSet.Active:=True;
MenuCatSDataSet.First;
itnod:=0;
MenuTreeView.Items.Clear;
MenuTreeView.Images:=ManagerImageLi st;
while itnod < MenuCatSDataSet.RecordCount
do
begin
if (DBTextCatParent.Caption='00CatIsAp sent') then //тут наполняем корень дерева
begin
tnod:=MenuTreeView.Items.AddChild(M enuTreeView.Selected,DBTextCatName. Caption);
end
else //тут наполняем детей (подкатегории)
begin
for i:=0 to MenuTreeView.Items.Count-1 do
begin
if MenuTreeView.Items[i].Text=DBTextCatParent.Caption then
MenuTreeView.Items[i].Selected:=true;
end;
tnod:=MenuTreeView.Items.AddChild(M enuTreeView.Selected,DBTextCatName. Caption);
end;
itnod:=itnod+1;
MenuCatSDataSet.Next;
MenuTreeView.FullCollapse;
end;
itnod:=0;
MenuCatSDataSet.First;
// СТРОИМ ДЕРЕВО КАТЕГОРИЙ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!
MenuTreeView.Visible:=True;
ManagerStatusBar.Panels[0].Text:=StatusBar_Cat_Count + ':' + IntToStr(MenuCatSDataSet.RecordCoun t)+'.';
end;



Делаю через функцию

Function BuildDBTree(FTreeView: TTreeView; TreeDataSet: TSimpleDataSet; CatName: TDBText; CatParent: TDBText; ImageList: TImageList):Boolean;


var
CatCount:integer; //количство записей в таблице категорий
MenuCount:integer; //количство записей в таблице записей меню
tnod: TTreeNode; //точки в дереве
mnod: TTreeNode; //точки в дереве
itnod: integer; //для счетчика
i:integer; //для счетчика

begin
FTreeView.Visible:=False;
TreeDataSet.Active:=False;
TreeDataSet.Active:=True;
TreeDataSet.First;
itnod:=0;
FTreeView.Items.Clear;
FTreeView.Images:=ImageList;
while itnod < TreeDataSet.RecordCount
do
begin
if (CatParent.Caption='00CatIsApsent') then
begin
tnod:=FTreeView.Items.AddChild(FTre eView.Selected,CatName.Caption);
end
else
begin
for i:=0 to FTreeView.Items.Count-1 do
begin
if FTreeView.Items[i].Text=CatParent.Caption then
FTreeView.Items[i].Selected:=true;
end;
tnod:=FTreeView.Items.AddChild(FTre eView.Selected,CatName.Caption);
end;
itnod:=itnod+1;
TreeDataSet.Next;
FTreeView.FullCollapse;
end;
itnod:=0;
TreeDataSet.First;
FTreeView.Visible:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
BuildDBTree(MenuTreeView,MenuItemSD ataSet,DBTextCatName,DBTextCatParen t,ManagerImageList);
end;


ноль имоций

помогите незамыленым глазом

[alexBlack]

Может не хватает одного параметра ?

-------------------------
MenuItemSDataSet.Active:=True;
MenuCatSDataSet.First;
itnod:=0;
MenuTreeView.Items.Clear;
MenuTreeView.Images:=ManagerImageLi st;
while itnod < MenuCatSDataSet.RecordCount

----->

TreeDataSet.Active:=True;
TreeDataSet.First;
itnod:=0;
FTreeView.Items.Clear;
FTreeView.Images:=ImageList;
while itnod < TreeDataSet.RecordCount
----------------
TreeDataSet = MenuItemSDataSet

[Родион]

Нет проблема не в этом

это опечатка изза нее не обновлялось я её уже подправил но функция всеравно не строит

[Родион]

Все разобрался
мой касяк ))