Собственно, сабж... Первый раз цикл отрабатывает нормально. При втором проходе зависет. Абы когда, не на одной записи в массиве
start:
Код:
Form2.ADOQuery1.SQL.Clear; // удаление предыдущего текста запроса
mySQL := 'UPDATE `'+team+'` SET `url` ='''+url+''' WHERE `vkid` ='''+idvk+''';'; //обновляем нашу запись
Form2.ADOQuery1.SQL.Add(mySQL); // добавление нового текста запроса
Form2.ADOQuery1.ExecSQL;
Form2.ADOQuery1.Active := false; // отключаем запрос, если он был включен
Form2.ADOQuery1.SQL.Clear; // удаление предыдущего текста запроса
// новый запрос – код подставляется из поля Edit
if (time>=8) and (22>=time) then begin
...................
В конце цикла
goto start;
Админ: Пользуемся тегами при оформлении кода! При рецедиве бан
Не подскажете, в чем может быть проблема? Какие-то ограничения Delphi на время выполнения программы? Когда зависает - висит загрузка CPU на уровне 23-25%...