- 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;
Lolwho 17.08.2009 21:45 # 0
guest 19.08.2009 02:03 # 0
guest 20.08.2009 15:37 # +1
guest 28.08.2009 12:24 # 0
guest 29.09.2009 12:26 # 0
MITtMIq 25.08.2021 07:22 # 0