Здравствуйте !!
Есть некий блок кода :


try

try
except
on E: Exception do
begin
Raise Exception.Create(E.Message);
end;
end;
finally

end;


С великим удивлением обнаружил, что Exception генерится, но не показывается на мониторе, хотя в отладчике видно честно и затем честно отрабатывается блок finally ....
Или я не прав ?

ну а я как написал !!
так же :))
просто я не стал нагружать кодом !!

TApplication.Exception у меня нет
И как ты посоветовал, тоже не работает :(

кстати в "твоем" случае Raise вообще ничего не пытается даже показать.
Except честно перехватывает ошибку и все ...
А в моем случае эта ошибка показывается в отладчике но не на мониторе ...

Странно но он даже не вызвался.
Я тут еще два try нашел выше.
Всего получилось 6.
Если все закоментарить, то exception показывается ...

в том то дело что доходит ...
но предыдущего exception тютю

только сильно ногами не бейте :)

насчитал 4:
1. try/finally - BeginTrans/Rollback
2. BitBtn1.OnClick := Nil; / BitBtn1.OnClick := BitBtn1Click;
3. try/finally Обработка формы функции FormWait
4. сама обработка ошибки передачи



try
Form1.ADO.BeginTrans;
try
BitBtn1.OnClick := Nil;
StartWait;
With QLocal do
begin
First;
While Not Eof do
begin
If DateIndex.IndexOf(QLocal.Fields.AsString) <> -1 then
begin
try
FormWait(0,'ПЕРЕДАЧА ДАННЫХ ЗА '+QLocal.Fields.AsString,False);
Application.ProcessMessages;
....
Close;
Sql.Clear;
Sql.Add('EXEC AddKartDate ');
try
Application.ProcessMessages;
Open;
If Fields[0].AsInteger <> 0 then
begin
StopWait;
Raise Exception.Create(' Ошибка передачи !!! Код ошибки: '+Fields[0].AsString);
end;
except
on E: Exception do
begin
StopWait;
Raise Exception.Create('ОШИБКА ВЫПОЛНЕНИЯ '+E.Message);
end;
end;
finally
FormWait(1,'ПЕРЕДАЧА ДАННЫХ ЗА '+Fields.AsString,False);
end;
end;
Next;
end;
end;
finally
BitBtn1.OnClick := BitBtn1Click;
StopWait;
end;
Form1.ADO.CommitTrans;
Form1.Memo.Lines.Add('OK');
Form1.Memo.Lines.Add(Chr(13)+Chr(10)+'Время завершения '+TimeToStr(Now));
ShowMessage('ГОТОВО !!!');
except
Form1.ADO.RollbackTrans;
end;

самое интересное, что тогда транзакция откатывается и userы начинают меня убивать ....

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

а то не обработчик типа ...


try
Application.ProcessMessages;
Open;
If Fields[0].AsInteger <> 0 then
begin
StopWait;
Raise Exception.Create(' Ошибка передачи !!! Код ошибки: '+Fields[0].AsString);
end;
except
on E: Exception do
begin
StopWait;
Raise Exception.Create('ОШИБКА ВЫПОЛНЕНИЯ '+E.Message);
end;
end;

и еще по поводу трназакций ....

во первых все данные обрабатываются на сервере а главная транзакция клиента решает применить все или нет ...
очень удобно
во вторых когда куча разношерстных процедур то надо 50 параметров передавть туда с клинета
в третьих когда налету добавляются процедуры (в лучшем случае)

кто что скажет против ?

я сначала тоже передавал параметры по "науке" через pararms
но как показала практика очень часто выскакивали совершенно бредовые сообщения по поводу этих самих же параметров, особенно выходных ...
и тогда я плюнул на все эти параметры ...

а я уже писал, что ЭТО ТОЖЕ НЕ РАБОТАЕТ !!!