Здравствуйте.
Val ( S; var V; var Code: Integer )
Объясните пожалуйста почему происходит вывод сообщения '
Ошибка размерности', в той ситуации когда я в поле
Edit1.text допускаю ошибку, то есть получается, что
cod<>0, а в поле
Edit2.text ошибки не допускаю, то есть
code=0. По идее он должен перекрыть полученное значение при проверке
Edit1.text не равное нулю на полученное - равное, а при равенстве нулю нулю сообщения выводится не должно.
PS: Скриншот кода прикреплён.