Exception

Комментарии

• Stalker4 123

  July 2016 отредактировано 02:51

  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 }