Обработчик ошибок.

[DennerV]

Здравствуйте все! Подскажите кто такое уже делал, я хочу сделать обработчик ошибок на Query, если оно не выполнится чтоб что-нить сделалось. Для начала хотябы сообщение.

        TRY
        Query1.ExecSQL;
        EXCEPT
          ShowMessage('ОШИБКА!!!');
        END;

Как сделать правильно?

[Sanprof]

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

а суть в чем, что если между try и except возникает исключка, то выполняется код между except и end? а после этого выполнение кода продолжается после данного блока без выхода из процедуры либо функции или что там у вас.

[DennerV]

это не работает

Суть пока в том, чтоб выдалось сообщение, если это будет работать потом допишу завершение программы чтоб она не зависала и ничего не оставалось в процессах

[Sanprof]

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

это не работает

покажите код, т.к. у меня работет, и еще вопрос, что по вашему не работает? код не отрабатывается в excep? или что?

[DennerV]

if IsNumber(Sheet.Cells[i, 1].Text) then
      begin 
        Query1.Close;
        Query1.Parameters.ParamValues['Fam']    := Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_Fam', 'B')].Text);
        Query1.Parameters.ParamValues['Nam']    := Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_Nam', 'C')].Text);
        Otch:= Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_SoN', 'D')].Text);
          If (Otch='нет') or (Otch='НЕТ') then Otch:='';
        Query1.Parameters.ParamValues['SoN']    := Otch;
        Query1.Parameters.ParamValues['DateR']  := StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateR', 'E')].Text);
        Query1.Parameters.ParamValues['DateS']  := StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateS', 'F')].Text);
        Query1.Parameters.ParamValues['DateReg']:= StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateReg', 'G')].Text);
        Query1.Parameters.ParamValues['Otdel']  := IntToStr(Ray);
        TRY
          Query1.ExecSQL;
        EXCEPT
          on E: Exception do  ShowMessage('ОШИБКА!!!');
        END;
        StatusBar1.Panels[1].Text := '  Кол-во строк ['+IntToStr(i-12)+']'; ;
      end;

Прога вместо того чтоб выдать "ОШИБКА!!!" выкидывает сообщение о неверной дате в Query и зависает.

[Stilet]

выкидывает сообщение о неверной дате в Query и зависает.

Это при тестировании из-под Делфи или при запуске самого экзешника без Делфи?

[DennerV]

Это при тестировании из-под Делфи или при запуске самого экзешника без Делфи?

Делфи вообще закрыл, специально сделал одну ошибку в дате.

[Stilet]

DennerV

А ты уверен что именно в этом коде ошибка? Может у тебя еще где-то эта дата срабатывает. Поставь бряк на Query1.ExecSQL; - дойдет до него без ошибок?

[Sanprof]

вот запустите экзешник (можете конеш и на вирусы проверить, если не доверяете вдруг)
Project1.rar
а вот его код

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: real;
begin
  c := 0;
  a := strtofloat(edit1.Text);
  b := 0;
  try
    c := a/b;
  except
    on E: Exception do ShowMessage(E.Message);
  end;
  ShowMessage('Я продолжаю выполнение хотя возникла исключка' + #13 +
                     'и я не должен выполняться  с = ' + floattostr(c));
end;

[DennerV]

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

А ты уверен что именно в этом коде ошибка? Может у тебя еще где-то эта дата срабатывает. Поставь бряк на Query1.ExecSQL; - дойдет до него без ошибок?

я уже так сделал все одно

 if IsNumber(Sheet.Cells[i, 1].Text) then
      begin 
        Query1.Close;
        TRY
        Query1.Parameters.ParamValues['Fam']    := Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_Fam', 'B')].Text);
        Query1.Parameters.ParamValues['Nam']    := Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_Nam', 'C')].Text);
        Otch:= Trim(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_SoN', 'D')].Text);
          If (Otch='нет') or (Otch='НЕТ') then Otch:='';
        Query1.Parameters.ParamValues['SoN']    := Otch;
        Query1.Parameters.ParamValues['DateR']  := StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateR', 'E')].Text);
        Query1.Parameters.ParamValues['DateS']  := StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateS', 'F')].Text);
        Query1.Parameters.ParamValues['DateReg']:= StrToDate(Sheet.Cells[i, SysINI.ReadString('RAYONS', 'COLUM_DateReg', 'G')].Text);
        Query1.Parameters.ParamValues['Otdel']  := IntToStr(Ray);
        Query1.ExecSQL;
        EXCEPT
          on E: Exception do ShowMessage('ОШИБКА!!!');
        END;
        StatusBar1.Panels[1].Text := '  Кол-во строк ['+IntToStr(i-12)+']'; ;
      end;