Обработка исключений

[svk12]

В дельфях хорошо работает такое:

Код: Выделить всё

var
  i : Integer;
  y : double;
begin
  for i := -100 to 100 do
    try
      y := sqrt(i);
      Button1.Caption:=FloatToStr(y);
    except on E:Exception do
      begin
        Continue;
      end;
    end;
end;

[Attid]

svk12,
а на форуме хорошо когда пользуются тегом [code][/code]

[EmeraldMan]

Похоже все-таки у меня или с системой что-то или с железом, ничего не помогает...
Хотя других глюков вроде не наблюдаю...
В конце недели переставлю систему, потом отпишусь.

[unC0Rr]

По опыту: такие непонятные глюки могут быть связаны с антивирусами или/и видеодрайверами, что объясняет работу программы на других машинах

[Sergei I. Gorelkin]

Да, кстати. Виноватой может быть любая программа, грузящая свою dll в адресное пространство процесса. Может сбивать режимы FPU. Собственно, для загрузки таких одаренных dll и существует SafeLoadLibrary.
Для проверки предположения можно попробовать сравнить значения, возвращаемые GetExceptionMask и GetRoundingMode на нормальной и глючной машинах.

[wavebvg]

Вообще создать аналогичную ситуацию при всём желании не получается (ни в win32, ни в gtk2).
Пробовал на актуальной svn версии. Может быть сделать вот так

Код: Выделить всё

var
  i : Integer;
  y : double;
begin
  for i := -100 to 100 do
    try
      y := sqrt(i);
      Button1.Caption:=FloatToStr(y);
      Application.ProcessMessages;
    except
    end;
end;   

[EmeraldMan]

Похоже все-таки проблемы не в машине, а в ПО.
Ситуация следующая:
На моем компе:
при цикле i := -2 to 100 вылетат после 4го нажатия на кнопку
при цикле i := -100 to 100 вылетат после первого нажатия на кнопку (вылетает с первого раза когда начинаем от -7 или ещё меньше)
На других компах, однако скомпилированная на моем:
при цикле i := -2 to 100 сколько бы раз не нажимали - не вылетает, работает как надо!
при цикле i := -100 to 100 вылетает как у меня с первого раза...

Попробовал установить Lazarus 0.9.26.2 на другом компе, не поверите, так же косячно скомпилировался...
В связи с этим систему не стал сносить, потому как почти уверен, что глюки не пропадут, так же наверняка не в железе дело.

Выкладываю проект и скомпилированный EXE: http://www.freeprog.org/files/sqrt.rar
Пожалуйста, протестируйте у себя! На первой кнопке почти уверен у вас все отлично будет, очень интересно будет ли вылет на второй кнопке!
И ещё, если не сложно, после этого скомпилируйте проект на своем компьютере и выложите свой exe, я у себя проверю (думается вылетать не должен) или пришлите на aleksey@freeprog.org

Честно сказать, не знаю как все это поможет... идей особо нету... Однако есть спортивный интерес.

[Vadim]

Ваш экзешник у меня не вылетает - ни первая, ни вторая кнопка.
Вот у меня скомпилированный экзешник: http://aksinia.nm.ru/files/project1.rar.
0.9.27 20329 fpc 2.2.5

[EmeraldMan]

Vadim, спасибо большое!
У меня ваш экзешник тоже не вылетает! Что очень радует!

Ваш экзешник у меня не вылетает - ни первая, ни вторая кнопка.

А на счет этого я прям удивился, на других компах вылетало...

Добавлено спустя 5 минут 10 секунд:
Да, и ещё
мой exe весит - 1,76 Мб
ваш - 1,59 Мб

интересно почему?..

[Vadim]

интересно почему?

Чешу тыковку... Возможно FPC 2.2.5 даёт меньший объём экзешника, чем предыдущие версии. У Вас какой FPC?

[EmeraldMan]

У Вас какой FPC?

Обычно пользуюсь официальными релизами, а с версией 0.9.26.2 идет FPC 2.2.2, вот он то и у меня.
Надо тоже попробовать поновее поставить

Добавлено спустя 3 часа 29 минут 16 секунд:
Все-таки глюк в среде разработки был...
Поставил Lazarus-0.9.27-20777-fpc-2.2.5 (сегодня скачал), все норм!

Кстати, скомпилированный файл и правда немного меньше весит.