Делфи. Полоса загрузки.

[Mr_freeman]

Всем привет. Есть программа которая осуществляет поиск по словарю, до выполнения какого то условия(там много циклов, суть не важна) словарь находится в Мемо. Поиск продолжается около 15 секунд, и в этот момент все как бы подвисает.
Такой вопрос: можно ли сделать полосу загрузки(это образно. Хотя бы какой нибудь текст меняющийся), пока идет этот поиск?

Я пробовал таймером, не получилось, он как будто пока программа висит не работает, ну или я неправильно что то сделал. Подскажите пожалуйста, как можно решить эту проблему?

[BlackFishSQL]

Копайте в сторону компонента TProgressBar вкладка Additional!

Простой пример с заранее известным приращиванием!

......
Begin
 for i:=1 to 20 do 
  begin
   // здесь ваши расчёты
   // после ваших расчетов отображаем текущее состояние
   ProgressBar1.Position:=ProgressBar1.Position+4;
   sleep(100); // задержка в секунду
  end; 
 ProgressBar1.Position:=0;
end;

Пример не очень удобен! Можете упростить: свойство max=20 к примеру и в строке ProgressBar1.Position::=i;

Вообщем как-то так наверно!)

[Krok27]

После увеличения полосы загрузки вызывай Application.ProcessMessages, чтобы отобразить рузультат.

[Serge_Bliznykov]

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

вызывай Application.ProcessMessages

+1005000



оффтоп

словарь находится в Мемо. Поиск продолжается около 15 секунд,

кстати, а почему так долго то?! Может имеет смысл перегрузить данные из визуального TMemo в невизуальный TStringList и оперировать с ним? Должно быть многократное увеличение скорости работы.

[Mr_freeman]

Приращение неизвестно...но я попробую разобраться с этими компонентами..
Ищет долго потому что словарь большой, и он прогоняется в последнем цикле из трех вложенных друг в друга.
Суть программы дешифровать текст, закодированный по алгоритму цезаря, при расшифровке нужно использовать словарь.

[luffi]

на текст в коде не оращай внимания, вот я так делал когдато

procedure TForm2.Timer2Timer(Sender: TObject);
begin
//----------------------------------------
sGauge1.Progress:=sGauge1.Progress+1;
//--------------
if LanguageLabel.Caption='Óêðà¿íñüêà (Óêðà¿íà) - UA' then
begin
if sGauge1.Progress=15 then sLabel1.Caption:='Ïîøóê ìîäóë³â ïðîãðàìè...';
if sGauge1.Progress=30 then sLabel1.Caption:='Çàïóñê ìîäóë³â ïðîãðàìè...';
if sGauge1.Progress=50 then sLabel1.Caption:='Ïîøóê áàçè äàíèõ...';
if sGauge1.Progress=65 then sLabel1.Caption:='Çàïîâíåííÿ áàçè...';
end;

if LanguageLabel.Caption='Ðóññêèé (Ðîññèÿ) - RUS' then
begin
if sGauge1.Progress=15 then sLabel1.Caption:='Ïîèñê ìîäóëåé ïðîãðàììû...';
if sGauge1.Progress=30 then sLabel1.Caption:='Çàïóñê ìîäóëåé ïðîãðàììû...';
if sGauge1.Progress=50 then sLabel1.Caption:='Ïîèñê áàçû äàíûõ...';
if sGauge1.Progress=65 then sLabel1.Caption:='Çàïîëåíèå áàçû...';
end;

if LanguageLabel.Caption='English (USA) - EN' then
begin
if sGauge1.Progress=15 then sLabel1.Caption:='Search modules...';
if sGauge1.Progress=30 then sLabel1.Caption:='Run the program modules...';
if sGauge1.Progress=50 then sLabel1.Caption:='Search database...';
if sGauge1.Progress=65 then sLabel1.Caption:='Complete database...';
end;
//-----------------
if(sGauge1.Progress>=100) then
   begin
     Timer2.Enabled:=False;
     sPanel1.Visible:=false;
     Height:=290;
     Width:=267;
     Form2.Position:=poScreenCenter;
     end;
//----------------------------------------
end;