• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Подскажите чайнику

  • Автор темы Автор темы WhiteWereWolf
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
W

WhiteWereWolf

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

sax_ol, спасибо за подавления порыва к изучению программирования.
 
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
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab