[Zork]

Доброго всем дня. У меня имеется Дерево, Иконки к нему и таблица tRazdels c полем R_Pict в которое занесены индексы картинок.
Хочу чтобы при заполнении дерева каждой ветке присваивались картинки(каждой ветке своя).

Код:

var s,f,i:integer;
  s:=Treeview1.Items.Count;
while not tRazdels.Eof do
begin
f:=tRazdels['R_Pict'];
For i:=0 to s-1 do
  TreeView1.items.item[i].ImageIndex:=f;
  tRazdels.Next;
end;

Админ: Пользуемся тегами!



Но чето не меняются картинки в дереве, курсор в таблице на последней записи значит по таблице прохожусь. В чем дело - непойму. Может неучел какую-нибудь мелочь? Если нужно, могу привести полный код заполнения дерева.

[Zork]

Проблему проблему помогли решить таким способом.

до цикла i:= 0
В цикле
TreeView1.items.item[i].ImageIndex:=f;
Inc(i);
if i = s then Break;

Все получилось...