вопрос от новичка - перевод из строки в число

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Fly:)
Сообщения: 11
Зарегистрирован: 25 окт 2006, 00:02
Откуда: Кисловодск

вообщем нужно сделать что-то типа калькулятора с Edit и нужно перевести его strToInt как написать правильно сумму этих Edit - ов?
Аватара пользователя
LAngel
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

Код: Выделить всё

try
  Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
except
  Edit3.Text := 'Error';
end;
С уважением, Lost Angel...
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

Ага, только надо тогда флажок снимать в опциях 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';
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Собственно можно ограничить ввод в Edit -- только цифры,, с дефолтом 0..
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

somewhere,
Как раз и не надо на стадии тестирования поможет найти ошибки
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
Ответить