VPF::обработка ошибки.. - Форум программистов

AlexDi

Дата 10.9.2009, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

есть такой код (x,a,b:real):

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
    try
x:=a/b;
edit3.Text:=floattostr(x);

   except
 x:=0;
 edit3.Text:=floattostr(x);
 {vcfgj}
  end;
end;

подскажите пожалуйста, я не хочу, чтобы прои делении на ноль выскакивало сообщение об ошибке, а просто x присваивался 0, что не правильно, что нужно изменить..?

Akella

Дата 10.9.2009, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

сделай проверку

Код


if b = 0 then...

Добавлено через 19 секунд
Такие вопросы нужно задавать в разделе для новичков

AlexDi

Дата 10.9.2009, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

нет, а если b присваивается 0 где-нибудь в коде?..мне нужно решение общей ситуации, как убрать это предупреждение об ошибке или как обойти (отказаться) от него.. smile

даже не правильно сказал, а если например такое:

Код


 if DirectoryExists(WorkTable) then
  begin
   try
    RmDir(WorkTable);
   except
  end;
  end;

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

Это сообщение отредактировал(а) AlexDi - 10.9.2009, 13:30

Keeper89

Дата 10.9.2009, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

AlexDi, почитайте вот это.

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

Вот пример из хелпа:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0, mbOk)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0, mbOk);
end;

Это сообщение отредактировал(а) Keeper89 - 10.9.2009, 13:38

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AlexDi

Дата 10.9.2009, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

{$I-} насколько я понимаю вообще отключается обработчик ошибок..? тоже наверно не очень.., или может его потом включить.. {$I+} ?
так же нельзя, насколько я понимаю.:(

Это сообщение отредактировал(а) AlexDi - 10.9.2009, 13:43

Keeper89

Дата 10.9.2009, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Ну да, после обработки его можно включить.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 10.9.2009, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А {$I-} на Дельфи работает? smile

Я думал, это всё осталось в Паскале.

--------------------

There's nothing left but silent epitaphs.

Frees

Дата 10.9.2009, 14:28 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(AlexDi @ 10.9.2009, 16:03

)

подскажите пожалуйста, я не хочу, чтобы прои делении на ноль выскакивало сообщение об ошибке

в твоем коде ошибка выскочит только при отладке приложения если просто запустиш ехе то ошибки не будет

--------------------

Кольцов Виктор Владимирович

Keeper89

Дата 10.9.2009, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(Данкинг @ 10.9.2009, 15:08

)

А {$I-} на Дельфи работает? smile Я думал, это всё осталось в Паскале.

Директивы работают, все или нет, я правда не знаю.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 11.9.2009, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(AlexDi @ 10.9.2009, 13:24

)

нет, а если b присваивается 0 где-нибудь в коде?

и что?? а проверить b непосредственно перед делением религия не позволяет?

Код


if b <> 0 then
 c := a/b;

Добавлено через 35 секунд

Цитата(AlexDi @ 10.9.2009, 13:24

)

а если b присваивается 0 где-нибудь в коде?

а как ещё можно "не в коде" присвоить значение b?? Ыы

Добавлено через 2 минуты и 21 секунду

Цитата(AlexDi @ 10.9.2009, 13:24

)

опять же

Код

if (DirectoryExists(WorkTable)) and (DirIsNotEmpty(WorkTable)) then RmDir(WorkTable);

DirIsNotEmpty - сам напиши функцию проверки...

CodeMonkey

Дата 11.9.2009, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Тыц.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »