Страница 1 из 1
вопрос от новичка - перевод из строки в число
Добавлено: 25 окт 2006, 00:07
Fly:)
вообщем нужно сделать что-то типа калькулятора с Edit и нужно перевести его strToInt как написать правильно сумму этих Edit - ов?
Добавлено: 25 окт 2006, 08:21
LAngel
Код: Выделить всё
try
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
except
Edit3.Text := 'Error';
end;
Добавлено: 25 окт 2006, 09:07
somewhere
Ага, только надо тогда флажок снимать в опциях 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';
Добавлено: 25 окт 2006, 10:51
Duncon
Собственно можно ограничить ввод в Edit -- только цифры,, с дефолтом 0..
Добавлено: 25 окт 2006, 11:05
Лелик_1044
somewhere,
Как раз и не надо на стадии тестирования поможет найти ошибки