Засчитывать только удачное выполнение процедуры в цикле

Posted by Chas under Delphi

Нужно выполнить процедуру заданное кол-во в edit и остановить. Но при выполнение процедуры у меня может возникнуть ошибка, ну так вот мне нужно сделать так чтобы защитовалось выполнение процедуры только когда она у меня успешно выполнена. Как это реализовать?

blackstrip
через блок 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;

evg_m