Exception

Stiffman

Здравствуйте, как перехватить текст ошибки в FastScript?

Пробую стандартным образом как в Delphi:

try
 ...
 except
         on E:Exception do
         begin
             ShowMessage(E.Message);
         end;
 end;

Пишет ошибку: END expected
Что не так ?

Stalker4

Stiffman написал: »

Здравствуйте, как перехватить текст ошибки в FastScript?

Пробую стандартным образом как в Delphi:

try
 ...
 except
         on E:Exception do
         begin
             ShowMessage(E.Message);
         end;
 end;

Пишет ошибку: END expected
Что не так ?

Примерно так:

MainSDDataBase.StartTransaction;
   try
     ExecSQL;
     MainSDDataBase.Commit;
   except
     MainSDDataBase.RollBack;         
       MessageDlg('Тут какая то ошибка: '+ExceptionMessage,  mtError, mbOK, 0)
       Exit;
   end; { try }