Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Процесс загрузки [D7, Paradox]

Dell3r © (2004-12-04 10:43:00)
Как в StatusBar отобразить ProgressBar который будет отслеживать процесс загрузки Базы данных. Я просто размещаю ПРОГРЕССБАР на СТАТУСБАРЕ, но он на разных машинах по разному убегает с нужного места(СТАТУС) и процесс отслеживания проходит очень быстро, он уже закончится, а через 3 сек. ГРИД отображает данные.

Вот как я это делаю. pb (ProgressBar)

pb.position:=0;
pb.max:=Query1.RecordCount;
i:=1;
with Query1 do
begin
Close;
Open;
While not EOF do
begin
ComboBox1.items.add(FieldByName('Name').AsString);
i:=i+1;
pb.Position:=i;
Next;
end;
First;
pb.Position:=0;

sniknik (2004-12-04 14:26:00) [1]
еще забыл перед изменением (до цикла) делай
ComboBox1.Items.BeginUpdate
после
ComboBox1.Items.EndUpdate

sniknik (2004-12-04 14:23:00) [2]
во это FieldByName('Name') еще за цикл вынеси (пару сотых секунды сэкономиш на загрузке)

var fName: TField;
...
fName:= FieldByName('Name');
...
ComboBox1.items.add(fName.AsString);

и потом после
Close;
Open;
RecordCount вполне может поменяться (сетевая база?) устанавливать pb.max надо после него в этом случае.

и после pb.Position:=i; нужно или перерисовывать прогресс бар принудительно или processmessage вызвать (кстати и так часто накаждый инкремент позицию изменять тоже зря, менять нужно только если это даст видимое на прогрессе приращение. а так только тормоза)

Digitman (2004-12-04 11:58:00) [3]
Query1.Last;
pb.max:=Query1.RecordCount;
Query1.First;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »