[arach]

Есть у меня некая процедура, которую нужно выполнять в цикле, но с задержкой. Как эту задержку внести в цикл? Если сделать просто:

Код:

procedure Sending;
 var
 i: Integer;
 Begin
 for i:= 0 to database.Count - 1 do
 sent_msg;
 sleep(10000);
 End;

то форма повисает и задержка вообще не работает - моментально все выполняется. Делать в отдельном потоке - тоже не вариант. Как быть?

[arach]

application.ProcessMessages; может исправить проблему?

[poli-smen]

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

Есть у меня некая процедура, которую нужно выполнять в цикле, но с задержкой. Как эту задержку внести в цикл? Если сделать просто:

Код:

procedure Sending;
 var
 i: Integer;
 Begin
 for i:= 0 to database.Count - 1 do
 sent_msg;
 sleep(10000);
 End;

то форма повисает и задержка вообще не работает - моментально все выполняется. Делать в отдельном потоке - тоже не вариант. Как быть?

Код:

procedure Sending;
var
  i: Integer;
begin
  for i := 0 to database.Count - 1 do
  begin
    sent_msg;
    Sleep(100);
    Application.ProcessMessages;
  end;
end;

[arach]

Задержка заработала, но форма очень сильно зависает sleep(10000);
Если выполнить в отдельном потоке висеть форма не будет?

[poli-smen]

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

Задержка заработала, но форма очень сильно зависает sleep(10000);

Чтобы не зависало вместо sleep(10000) пиши:

Код:

var
  j: Integer;
begin
  for j := 1 to 100 do
  begin
    Sleep(100);
    Application.ProcessMessages;
  end;
end;

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

Если выполнить в отдельном потоке висеть форма не будет?

Чаще всего для этого отдельные потоки и делают.

[arach]

Если я напишу sleep(100), то меня забанит сервер

[arach]

Создал отдельный поток - все отлично!

[Bargest]

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

Если я напишу sleep(100), то меня забанит сервер

Ну так что мешает сделать примерно так:

Код:

for i := 1 to database.count - 1 do
 sent_msg;

for j := 1 to 100 do
  begin
    Sleep(100);
    Application.ProcessMessages;
  end;

end;

Я так понимаю, poli-smen имел в виду именно это.

З.Ы. все же лучше использовать потоки.