- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
I := 0;
While clbDBList.ItemIndex < I+1 do // пробегаемся циклом по списку баз данных.
begin
If clbDBList.Checked[Ix] then // Если база отмечена, производим её обновление.
begin
//тут действия..
end;
Inc(I);
end;