вопрос от новичка - перевод из строки в число
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
вообщем нужно сделать что-то типа калькулятора с Edit и нужно перевести его strToInt как написать правильно сумму этих Edit - ов?
Код: Выделить всё
try
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
except
Edit3.Text := 'Error';
end;
С уважением, Lost Angel...
Ага, только надо тогда флажок снимать в опциях Debugger'a - Stop on Delphi exceptions, а иначе все-равно покажет Exeption Notification. А лучше всего использовать TryIntToStr:
Код: Выделить всё
If TryIntToStr(StrToInt(Edit1.Text), Val1) then
If TryIntToStr(StrToInt(Edit2.Text), Val2) then
Edit3.Text := IntToStr(Val1+Val2)
else Edit3.Text := 'Error';
Собственно можно ограничить ввод в Edit -- только цифры,, с дефолтом 0..
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
somewhere,
Как раз и не надо на стадии тестирования поможет найти ошибки
Как раз и не надо на стадии тестирования поможет найти ошибки
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.