Форум программистов > Подскажите чайнику

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Подскажите чайнику

Форум программистов > Системное программирование > Delphi и Pascal > Delphi - FAQ

WhiteWereWolf

9:05:2008, 15:42

Написала в Delphi простенькую програмку для кое-каких вычислений.
При нажатии на кнопку выполняются заданные мной операции над числами и выводятся в Labele.
Всё бы ничего, но у програмки глюк: если не введёшь в Editы числа, программа выдаёт ошибку и завершается.
Подскажите, каким образом мне доработать программу

gozer

10:05:2008, 06:50

само сабой ошибка будет, т.к. пустое значение Edit - будет рассматриваться как текст а не цифры
и strtoint и т.п. выдаст ошибку, для этого просто надо использовать проверку на не пустые значения
а почему вылетает сложно сказать - если кините код процедуры, то поможем

sax_ol

10:05:2008, 07:05

Цитата(WhiteWereWolf @ 9:05:2008 - 17:42)

Подскажите, каким образом мне доработать программу

Лучше котлеты делать.

WhiteWereWolf

12:05:2008, 01:51

gozer, спасибо за совет.

sax_ol, спасибо за подавления порыва к изучению программирования.

sax_ol

12:05:2008, 06:35

WhiteWereWolf А был-ли ма... ээ порыв?

Yason

12:05:2008, 20:42

WhiteWereWolf

Код

procedure TForm2.Button1Click(Sender: TObject);
var
  value1, value2: integer;
begin
  try
    value1 := StrToInt(Edit1.Text);
    value2 := StrToInt(Edit2.Text);
    label1.Caption := IntToStr(value1+value2);
  except on EConvertError do
    label1.Caption := 'Enter integer numbers only';
  end;
end;

При запуске из IDE исключения всё равно будут выскакивать, их можно убрать в настройках - дебаггер - Language Exceptions - Exception types to ignore: нужно добавить EConvertError

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.