Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2014, 10:02   #1
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию Выполнение процедуры заданное кол-во раз

Нужно выполнить процедуру заданное кол-во в edit и остановить, понятно что это делается примерно так:

Код:
for i:=0 to strtoint(edit1.Text)-1 do
Но при выполнение процедуры у меня может возникнуть ошибка, ну так вот мне нужно сделать так чтобы защитовалось выполнение процедуры только когда она у меня успешно выполнена. Как это реализовать?
UKRtortik вне форума Ответить с цитированием
Старый 08.03.2014, 10:22   #2
blackstrip
Форумчанин
 
Аватар для blackstrip
 
Регистрация: 21.01.2012
Сообщений: 240
По умолчанию

через блок try except end и флажок
Код:
var
good:boolean;
begin
good := true;
try
for i:=0 to strtoint(edit1.Text)-1 do
begin
...
end;
except
good:=false;
end;

if good then
begin
//все хорошо, ошибок не было
end
else
begin
//все плохо, была ошибка и вылет в блок except
end;
end;
blackstrip вне форума Ответить с цитированием
Старый 08.03.2014, 13:26   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Код:
while (n<maxval) and (nbad<maxerror) do
try
  runproc;
  n:=n+1;//считаем только успехи
except
  nbad:=nbad+1;
end;
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 08.03.2014 в 13:29.
evg_m вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация на сайте заданное количество раз artbotva Общие вопросы Delphi 5 24.09.2012 15:01
закончить выполнение процедуры из тела другой процедуры Alaysor Общие вопросы Delphi 14 23.01.2011 05:26
Подсчитать сколько раз заданное слово встречается в сообщении. kri* Помощь студентам 1 28.05.2010 22:29
сколько раз заданное слово встречается в данной строке pascal1994 Помощь студентам 4 04.02.2009 08:41
Выполнение действия в заданное время WOWan234 Помощь студентам 6 02.05.2007 01:52