Прогресс в заставке при старте программы

[Sibedir]

1. Определяем кол-во записей. ProgressBar1.Max := RecordCount
2. ProgressBar1.Position := 0
3. Через определенный промежуток времени проверяем кол-во загруженныйх данных (как, не знаю). ProgressBar1.Position := Zagrujeno

-----------------------------------------------------------------------------

Сообщение от evg_m

И человеку(пользователю) ВСЕГДА нужны все эти 400 000 ?
Да нужны все. Просмотр каждой записи в течении всего ОДНОЙ СЕКУНДЫ займет более 100 (СТА ЧАСОВ) или около 4 суток(по 24 часа в сутки)

Не грузить при старте ничего, и дать пользователю средства для указания (формирования условий отбора) действительно нужных данных.

+100

[Yurk@]

Не грузить при старте ничего, и дать пользователю средства для указания (формирования условий отбора) действительно нужных данных.

+ 100
ТС, прислушайся к этому совету. Правильный он

+ еще почитать в сторону частичного фетча данных. если уже и хочется грузить всё - то так будет гораздо комфортнее

[Kix.IV]

400 000 записей не так уж и много. Видимо не оптимизированный код.

Не грузить при старте ничего, и дать пользователю средства для указания (формирования условий отбора) действительно нужных данных.

+100)

[evg_m]

Вот так работает, но прогресс достиг уже максимального значения, а программа еще не запустилась.

Конечно, она ПРОСТО ждет пока закончится прогрессбар

  while SplashForm.Timer1.Enabled do // ждем пока не освободится splachform
    Application.ProcessMessages;

а она освободится только по исчерпании Progressbar'а

progressbar1.position:=progressbar1.position+10;
  if  ProgressBar1.Position=100 then Timer1.Enabled := false;

И только после этого (после того как пройдет прогрессбар идет загрузка форм, и данных в т.ч.)

  Application.Title := 'Terminal com port';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSQLForm, SQLForm);
  Application.CreateForm(TOptionForm, OptionForm);
  Application.CreateForm(TFindForm, FindForm);
  Application.CreateForm(TResultForm, ResultForm);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);

вариант

  SplachForm.Progress.max:=10;
  splachform.Progress.pos:=0;
  splachform.update;
//  application.processmessages;//возможно будет работать и без этого 
              Application.Title := 'Terminal com port';
              Application.CreateForm(TForm1, Form1);
  splachform.progress.pos:=1;
  splachform.update;
//  application.processmessages;
  ....
              Application.CreateForm(TForm6, Form6);
  splachform.Progress.pos:=10;
  splachform.update;
//  application.processmessages;

  ...Hide;
  ...Free;
  ...Run;