4

Как-то не понятно отрабатывает трассировка кода:

begin
  if StrToInt(Edit1.Text) < 10 then
  begin
    showmessage('Hi');
    exit;
  end;
end;

при:
"Edit1.Text = 20" и соответственно условие выдает false, компилятор тормозится на breakpoint строки "exit", но пропускает вывод сообщения.
Когда по идее, в этот блок он вообще не должен попадать.

3
  • 1
    это дебагер врет - так как Ваш exit не нужен, небось еще и оптимзация включена
    – user176262
    17 мар 2016 в 0:29
  • Так это он у всех так отрабатывает? Ух... а я уж... Ага, включена... 17 мар 2016 в 0:32
  • спокойствие, только спокойствие. Дебагер - это дело житейское.
    – user176262
    17 мар 2016 в 0:33

1 ответ 1

0

Это оптимизация компилятора. Просто Exit; избыточен внутри блока begin..end в данном контексте. Добавьте строчку кода после первого end; и увидите, что все работает как надо.

begin
  if StrToInt(Edit1.Text) < 10 then
  begin
    showmessage('Hi');
    exit;
  end;
  showmessage('Bye');
end;
1
  • да, в принцыпе можно и только перед end добавить, тоже будет видно работать "как надо" :) 17 мар 2016 в 8:16

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.