|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Зависает бесконечный цикл
Собственно, сабж... Первый раз цикл отрабатывает нормально. При втором проходе зависет. Абы когда, не на одной записи в массиве
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%... Последний раз редактировалось Admin, 10.11.2017 в 19:23. |