[aspotkin]

Собственно, сабж... Первый раз цикл отрабатывает нормально. При втором проходе зависет. Абы когда, не на одной записи в массиве

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%...

[Alegun]

Зачем запрос отключаете, на момент выполнения он может не успеть обработаться и сервер вынужден давать отмену предыдущего, нужно просто содержимое чистить, последовательность действий должна быть примерно такой

Код:

...
with query do
 begin
  SQL.Clear;
  SQL.Add(
  ExecSQL;

  SQL.Clear;
  SQL.Add(
...
end;

да и вылова ошибок здесь явно не хватает

Код:

try

... {здесь выполнение запросов}

except
{При возникновении в коде любых ошибок}

   One: EDatabaseError do
   begin
     messageDlg(e.message, mtError, [mbOK], 0);
     exit;
   end;
   One: Exception do
   begin
     messageDlg(e.message, mtError, [mbOK], 0);
     exit;
   end;
end;

[Kailon]

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

...
start:
...
В конце цикла
goto start;
...

Чуть глаза не выпали! Какое еще goto!?!

[aspotkin]

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

Чуть глаза не выпали! Какое еще goto!?!

А как красиво сделать возврат к необходимому месту в коде, чтобы цикл повторился?

[Aristarh Dark]

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

А как красиво сделать возврат к необходимому месту в коде, чтобы цикл повторился?

1. for ... to
2. while ... do
3. repeat ... until

[aspotkin]

Всем спасибо! Заработало, неправильно отрабатывали условия в цикле при определенных записях в БД и не всегда прогружался документ, синхронизация помогла