[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;