Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > зацикленный try...except

Автор: eXa 5.12.2007, 15:52

Как мне реализовать следуюшие, если между try...except ошибка, то между except...end будет находиться код который будет уменьшать значение переменно на один и после этого возвращаться к try...except, если между try...except опять ошибка то уменьшается значение переменной на один и так пока ошибка не будет устронена, можно оператором goto канешно, но думаю есть варианты получше

Код


try
    for index := 0 to (MaxID-1) do
      ....
  except
   on Exception do
     Dec(MaxID);
   end;

Автор: Alexeis 5.12.2007, 15:56

Код


var
  Succes : boolean;
...
begin
  Succes := true;
  Repeat
  try
    for index := 0 to (MaxID-1) do
      ....
  except
   on Exception do
     inc(MaxID);
     Succes := false;
   end;
  until Succes;

Автор: eXa 5.12.2007, 16:03

Быстро

Спасиб!

Автор: Alexeis 5.12.2007, 16:08

Быстро, то быстро, но пахнет кривым алгоритмом. Нужно проверять исходные данные на валидность и только потом запускать алгоритм, а не кидать все попало в алгоритм, чтобы потом подбирать правильное значение методом тыка smile

Автор: eXa 5.12.2007, 16:57

Да ты прав smile

но пока пусть пока так крутится, вертится