Begin ch:=StrToInt(Edit1.Text); // Преобразовываю Edit1.Text в число ch:=ch+1; Edit1.Text:=IntToStr(ch); // Преобразовываю сh в строку

end;

Когда ты преобразовываешь строку в число, ты должен быть уверен в том, что строка содержит число. Если в строке будет хоть один символ не относящейся к цифре, то во время преобразования произойдёт ошибка. Чтобы избавить от ошибок, можно использовать исключительные ситуации, заключая преобразование между try и except. Но есть ещё один способ – использовать функцию StrToIntDef у которой уже два параметра:

1. 1. Строка, которую надо преобразовать

2. 2. Значение по умолчанию, которое будет возвращено, если произошла ошибка. Итак, наш пример можно подкорректировать следующим образом:

 

var ch:Integer; begin ch:=StrToIntDef(Edit1.Text, 0); // Преобразовываю Edit1.Text в число end;

В этом примере, если произойдёт ошибка во время преобразование, то функция не будет ругаться, а вернёт значение 0.