raise Exception [D7, WinXP]
Страницы:
<
1
2
>
Juice © (2007-02-06 12:06:00)
Есть процедура, в ней цикл, в цикле при выполнении
определенного логического условия я деляю raise
Exception.Create("..."). Обработчиков внутри процедуры никаких нет.
Исключительно на одной единственной машине при попадании в это
условие генерится исключение и ... продолжает работать цикл !
procedure CalcStateOnDate(ADate : TDate;
OriCoupons:TCoupons);
var
i : integer;
CurRate : Extended;
begin
CurRate := 0;
for i:=0 to High(OriCoupons) do
begin
...
else raise Exception.Create('Logical Error in
CALCSTATEONDATE [{6084186F-143B-443E-B79A-200E360EBDF5}]');
end;//for i:=0 to High(OriCoupons) ...
end;
Сергей М. (2007-02-06 12:16:00) [21]
procedure CalcStateOnDate(ADate : TDate; OriCoupons:TCoupons);
...
begin
try
.....
except
on e: Exception do begin
ShowMessage(e.classname + ' ' +
e.message); //сообщение видишь ?
raise;
end;
end;
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
