Архив форумов ЦИТФорума

[I_one]

-

[Sclis]

i:=TreeView1.Selected.AbsoluteIndex;
n:=i+1;
while i

[Sclis]

i:=TreeView1.Selected.AbsoluteIndex;n:=i+1;
while i

[Sclis]

i:=TreeView1.Selected.AbsoluteIndex;
n:=i+1; while i

[Sclis]

i:=TreeView1.Selected.AbsoluteIndex;
n:=i+1;
while i(меньше)n do
begin
n:=n+treeView1.Items.Item[i].Count;
treeView1.It ems.Item[i].Text:='!!!';
Inc(i);
end;