try except

[Stilet]

Попробуйте сами, а потом уж говорите.

Ладно. Признаю твою правоту. Вот только описание класса не даст все равно точного ответа на вопрос:

что именно вызвало ошибку?

Учитывая что в ловце исключний могут давать сбой разные операторы с одним и тем же классом исключения.

[StriderX]

Сообщение от Stilet

Ладно. Признаю твою правоту. Вот только описание класса не даст все равно точного ответа на вопрос:
Учитывая что в ловце исключний могут давать сбой разные операторы с одним и тем же классом исключения.

На самом деле всё может быть гораздо хуже - повреждение памяти, разрушение стэка, кривое связывание и т.п.. Исключение будет бросать совершенно из произвольных мест в произвольное время. Механизм в принципе становится бесполезным. Качественно ловить такое лично я не умею - приходится проводить полный код-ревью с постепенным отключением всего функционала =-)
PS: помню как в одно время переставлял по коду asm nop end - удачно размещенный он предотвращал краш приложения %)

[Stilet]

приходится проводить полный код-ревью с постепенным отключением всего функционала =-)

Аналогично. Впрочем адрес кода, который вызвал исключение уже говорит о многом. Даже SIGSEGV может сказать где "упало" с высокой точностью. Это конечно если уметь анализировать.

[xxbesoxx]

Сообщение от Stilet

Ага )))
Выдаст 'Exception' и гадай потом какой из них.

Это да Бывает такого тоже . Я на пример реализовал так

 if Условия 1 then
  begin
      действия 1 
    end
  else
   begin
        MessageDlg('Имя ошибки 1',mtError,[mbOK],0)
  end
  else
 if Условия 2 then
  begin
      действия 2 
    end
  else
   begin
        MessageDlg('Имя ошибки 2',mtError,[mbOK],0)
   end
  else
 if Условия 3 then
  begin
      действия 3 
    end
  else
   begin
        MessageDlg('Имя ошибки 3',mtError,[mbOK],0)
   end

Чтобы не попал такого непонятной ситуаций

[northener]

Сообщение от StriderX

На самом деле всё может быть гораздо хуже -

Вот пример с анализом ситуации
http://alexander-bagel.blogspot.ru/2014/01/217.html

[Stilet]

Я на пример реализовал так

Ну это у тебя не рабочий код )
Тут ошибки синтаксические.

[xxbesoxx]

А где ошибка ?

[Stilet]

 if Условия 1 then
  begin
      действия 1 
    end
  else
   begin
        MessageDlg('Имя ошибки 1',mtError,[mbOK],0)
  end
  else
 if Условия 2 then

В отличие от "десу", "ельзок" слишком много бывает

[xxbesoxx]

Нет не согласен ! Давайте посмотрим реальный простой пример из рабочий проекта

procedure TfrmUsersAddChange.btnSaveClick(Sender: TObject);
begin
  {*** Проверка Edit ! Задано или нет параметр }
   if edtu_First_Name.Text = '' then
    begin
      Beep();
      MessageDlg('სახელი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
      if  edtu_First_Name.CanFocus then edtu_First_Name.SetFocus;
      Abort;
    end
     else
    if edtu_Last_name.Text = '' then
    begin
      Beep();
      MessageDlg('გვარი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
      if edtu_Last_name.CanFocus then edtu_Last_name.SetFocus;
      Abort;
    end
      else
    if edtu_patronymic.Text = '' then
      begin
        Beep();
        MessageDlg('მამის სახელი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
        if edtu_patronymic.CanFocus then edtu_patronymic.SetFocus;
        Abort;
      end
    else
     if edtu_Pasport_Number.Text = '' then
      begin
        Beep();
        MessageDlg('პასპორტის№ აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
        if edtu_Pasport_Number.CanFocus then edtu_Pasport_Number.SetFocus;
        Abort;
      end
       else
     if edtu_Adress.Text = '' then
    begin
      Beep();
      MessageDlg('მისამართიი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
      if edtu_Adress.CanFocus then edtu_Adress.SetFocus;
      Abort;
    end
      else
     if  cbbu_Status.Text = '' then
    begin
      Beep();
      MessageDlg('სტატული აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
      if cbbu_Status.CanFocus then cbbu_Status.SetFocus;
      Abort;
    end
      else
     if  edtu_Login.Text = '' then
    begin
      Beep();
      MessageDlg('ლოგინი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
      if edtu_Login.CanFocus then edtu_Login.SetFocus;
      Abort;
    end
       else
     if  edtu_Password.Text = '' then
      begin
        Beep();
        MessageDlg('პაროლი აუცილებლად უნდა იყოს შევსებული', mtError,[mbOK],0);
        if edtu_Password.CanFocus then edtu_Password.SetFocus;
        Abort;
      end
     else
    if frmUsersAddChange.Caption = 'ახალი მონაცემის შეტანა' then
     begin
       frmMain.UsersInsert; // Здесь тоже процедура 
       frmUsersAddChange.Close;
     end
    else
  if frmUsersAddChange.Caption = 'მონაცემის რედაქტირება' then
   begin
     frmMain.UsersUpdate; // вызываю процедуру на выполнение . Он на на другом форме в разделе  public
     frmUsersAddChange.Close; // После выполнение закрываю форму 
   end;
end;

Тоже самое конструкция и работает правильно :D

[саша40]

Алгоритмические ошибки нас учили исправлять и учитывать ещё с самоучителя по Delphi 7. Программист должен учитывать все варианты.