Как при ошибке конвертирования выйти из процедуры?

← →
Dr. Andrew (2007-09-20 18:45) [0]

Добрый вечер, Мастера! Подскажите где в моем коде ошибка. Мне необходимо на возникновение ошибки при конвертировании корректно выйти из процедур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;

← →
Плохиш © (2007-09-20 18:55) [2]

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]

нет, но смысл же не втом чтобы записать просто число, а в том чтобы можно было исправитьзапись в редактируемом поле если вместо запятой поставлена точка и при этом не выскакивала аварийная системная ошибка о неверном конвертировании. Спасибо

← →
Anatoly Podgoretsky © (2007-09-20 19:36) [4]

TryStrToFloat

← →
Korneley © (2007-09-20 19:59) [5]

А вот как вариант?
1. Выставить DecimalSeparator как надо.
2. На Экцепте возвратить фокус в Едит (с сообщением...)

← →
Однокамушкин (2007-09-20 21:45) [6]

По умолчанию дельфийский отладчик сообщает о любом исключении, даже если оно потом обрабатывается в try/except, и вы, скорее всего, сообщение отладчика ошибочно называете системным... Отключите опцию Stop on Delphi Exception в окне Tools\Debugger options на странице Language exceptions... или просто запустите программу не из-под дельфей

> [0] Dr. Andrew (20.09.07 18:45)

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;

А я что-то и не обратил внимания, что код на создании формы... Хоть эта и ошибка в данном случае,
но я другое хотел показать... Впрочем это было конкретно ответ на вопрос в сабже,
а решений конкретной проблемы из примера к вопросу, тоже предложили несколько вариантов... :)

Как при ошибке конвертирования выйти из процедуры? Найти похожие ветки