Нет всё равно. procedure TMain.AddShowUsageElementTree(var UsageTree: TTreeView; var RootNode: TTreeNode; Item: TPUsageItem); var Node: TTreeNode; PItem: ^TFindUsageItem; begin Node:=UsageTree.Items.AddChild(RootNode, Item.ScriptName); Node:=UsageTree.Items.AddChild(Node, IntToStr(Item.LineNum)+'/'+IntToStr(Item.Position)); Node.Data:=Item; PItem:=Node.Data; if Pitem.ScriptName<>'' then begin StatusBar1.Panels[1].Text:=Pitem.ScriptName; end; end; так работает. А в отдельных методах нет.
Обсуждают сегодня