Процедура Exit немедленно завершает выполнение текущей функции или процедуры.
При выходе из функции, результат содержит последнее значение.
Предупреждение: используйте с предостережением — это делает обслуживание кода трудным.
Похожие команды
Break Выполняет выход из одного цикла
Continue Заставляет перейти к следующей итерации цикла
Goto Вызывает скачок к метке, независимо от вложения
Halt Заканчивает программу с дополнительным диалогом.
RunError Заканчивает программу с диалогом ошибки
При выходе из функции, результат содержит последнее значение.
Предупреждение: используйте с предостережением — это делает обслуживание кода трудным.
Похожие команды
Break Выполняет выход из одного цикла
Continue Заставляет перейти к следующей итерации цикла
Goto Вызывает скачок к метке, независимо от вложения
Halt Заканчивает программу с дополнительным диалогом.
RunError Заканчивает программу с диалогом ошибки
Добрый вечер, Мастера! Подскажите где в моем коде ошибка. Мне необходимо на возникновение ошибки при конвертировании корректно выйти из процедурs? чтобы можно бвыло исправить ошибку без аварийной остановки и системного диалога об ошибке.
procedure TForm1.MyProcedure(); begin try Edit2.Text := FloatToStr(Edit1.Text); except on EConvertError do Exit; end; end;
procedure TForm1.Create(Sender : Object); begin Edit1.Text := «0.6»; // здесь я умышленно ставлю ошибку вместо запятой точку MyProcedure(); end;
←→ Dr. Andrew ( 2007-09-20 18:48 ) [1]
Извините допустил ошибку следует код читать так:
procedure TForm1.MyProcedure(); begin try Edit2.Text := FloatToStr(StrToFloat(Edit1.Text)); except on EConvertError do Exit; end; end;
procedure TForm1.Create(Sender : Object); begin Edit1.Text := «0.6»; // здесь я умышленно ставлю ошибку вместо запятой точку MyProcedure(); end;
procedure TForm1.MyProcedure(); begin try Edit2.Text := FloatToStr(Edit1.Text); except on E:Exception do LogWrite(«Эк, кого-то закосячило. Обшибка: » + E.ClassName + «: » + E.Message); end; end;
←→ Dr. Andrew ( 2007-09-20 19:16 ) [3]
нет, но смысл же не втом чтобы записать просто число, а в том чтобы можно было исправитьзапись в редактируемом поле если вместо запятой поставлена точка и при этом не выскакивала аварийная системная ошибка о неверном конвертировании. Спасибо
А вот как вариант? 1. Выставить DecimalSeparator как надо. 2. На Экцепте возвратить фокус в Едит (с сообщением. )
←→ Однокамушкин ( 2007-09-20 21:45 ) [6]
По умолчанию дельфийский отладчик сообщает о любом исключении, даже если оно потом обрабатывается в try/except, и вы, скорее всего, сообщение отладчика ошибочно называете системным. Отключите опцию Stop on Delphi Exception в окне ToolsDebugger options на странице Language exceptions. или просто запустите программу не из-под дельфей
procedure TForm1.MyProcedure(); begin try Edit2.Text := FloatToStr(StrToFloat(Edit1.Text)); except raise; //Возбуждаем ошибку в вызывающей процедуре end; end;
procedure TForm1.Create(Sender : Object); begin Edit1.Text := «0.6»; // здесь я умышленно ставлю ошибку вместо запятой точку try MyProcedure(); except ShowMessage(«Ошибка ввода значения в эдит1»); //Обрабатываем ее(ошибку) Edit1.SetFocus; end; end;
> Dr. Andrew (20.09.07 19:16) [3] > > нет, но смысл же не втом чтобы записать просто число, а > в том чтобы можно было исправитьзапись в редактируемом поле > если вместо запятой поставлена точка и при этом не выскакивала > аварийная системная ошибка о неверном конвертировании. Спасибо >
А обработка OnKeyDown в «редактируемом поле » не помогает?
> procedure TForm1.Create(Sender : Object); > begin > Edit1.Text := «0.6»; // здесь я умышленно ставлю ошибку вместо запятой точку > try > MyProcedure(); > except > ShowMessage(«Ошибка ввода значения в эдит1»); //Обрабатываем ее(ошибку) > Edit1.SetFocus; > end; > end;
А я что-то и не обратил внимания, что код на создании формы. Хоть эта и ошибка в данном случае, но я другое хотел показать. Впрочем это было конкретно ответ на вопрос в сабже, а решений конкретной проблемы из примера к вопросу, тоже предложили несколько вариантов. 🙂
Для любителей погонять в компьютерные игры не секрет
0533
We use cookies on our website to give you the most relevant experience by remembering your preferences and repeat visits. By clicking “Accept”, you consent to the use of ALL the cookies.
This website uses cookies to improve your experience while you navigate through the website. Out of these, the cookies that are categorized as necessary are stored on your browser as they are essential for the working of basic functionalities of the website. We also use third-party cookies that help us analyze and understand how you use this website. These cookies will be stored in your browser only with your consent. You also have the option to opt-out of these cookies. But opting out of some of these cookies may affect your browsing experience.
Necessary cookies are absolutely essential for the website to function properly. These cookies ensure basic functionalities and security features of the website, anonymously.
Cookie
Duration
Description
cookielawinfo-checkbox-analytics
11 months
This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics".
cookielawinfo-checkbox-functional
11 months
The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional".
cookielawinfo-checkbox-necessary
11 months
This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary".
cookielawinfo-checkbox-others
11 months
This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other.
cookielawinfo-checkbox-performance
11 months
This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance".
viewed_cookie_policy
11 months
The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data.
Functional cookies help to perform certain functionalities like sharing the content of the website on social media platforms, collect feedbacks, and other third-party features.
Performance cookies are used to understand and analyze the key performance indexes of the website which helps in delivering a better user experience for the visitors.
Analytical cookies are used to understand how visitors interact with the website. These cookies help provide information on metrics the number of visitors, bounce rate, traffic source, etc.
Advertisement cookies are used to provide visitors with relevant ads and marketing campaigns. These cookies track visitors across websites and collect information to provide customized ads.