[KSN]

Здравствуйте.

Val ( S; var V; var Code: Integer )

Объясните пожалуйста почему происходит вывод сообщения 'Ошибка размерности', в той ситуации когда я в поле Edit1.text допускаю ошибку, то есть получается, что cod<>0, а в поле Edit2.text ошибки не допускаю, то есть code=0. По идее он должен перекрыть полученное значение при проверке Edit1.text не равное нулю на полученное - равное, а при равенстве нулю нулю сообщения выводится не должно.

PS: Скриншот кода прикреплён.