Помогите исправить ошибку

[KARUSHEV]

Всем доброго дня!

Помогите с ошибкой, если вводишь знак "минус" в поле 9 выскакивает ошибка: '-' is not valid floating point value'. Если закрыть это сообщение и ввести значение, потом все работает правильно, как убрать это сообщение. Нужно чтобы в Edit9 можно было ввести как положительные, так и отрицательные значения.

Кто знает как подправить этот код:

procedure TForm3.Edit9KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If Edit9.Text = '' then
	     Edit10.Text := ''
    else

 begin
    If RadioGroup3.ItemIndex > 0 then
	    Edit10.Text := FloatToStr(StrToFloat(Edit9.Text) + 1)
    else
 	    Edit10.Text := FloatToStr(StrToFloat(Edit9.Text) + 0.5);
  end;
end;

Заранее большое спасибо.

[Hollander]

Ты случайно не ставил у Edit9 возможность ввода только числовых значений?

[Crazy_Wolfy]

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

[KARUSHEV]

В процедуре KeyPress такой код:

procedure TForm3.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9':;
'-':;
',','.':
begin
Key := DecimalSeparator;
if Pos(DecimalSeparator,Edit9.Text) <> 0
then Key := Char(0);
end;
#8      :;
#13     : Edit12.SetFocus;
else Key :=Chr(0);
end;

[KARUSHEV]

Crazy_Wolfy, не подскажешь как написать такое условие?

[Stilet]

KARUSHEV

Вместо StrToFloat примени StrToFloatDEF которая возвращает число определенное тобой во втором параметре если нельзя строку в число перевести или TryStrToFloat.

[Stilet]

KARUSHEV

Вместо StrToFloat примени StrToFloatDEF которая возвращает число определенное тобой во втором параметре если нельзя строку в число перевести или TryStrToFloat.

[KARUSHEV]

Stilet, напиши пожалуйста всю строчку, а то у меня вылетает ошибка

Edit10.Text := FloatToStr(TryStrToFloat(Edit9.Text) + 0.5);

[Stilet]

Пожалуйста:

Edit10.Text := FloatToStr(StrToFloatDEF(Edit9.Text,0) + 0.5);

или

var ou:double;
...
if TryStrToFloat(Edit9.Text,ou) then
 Edit10.Text := FloatToStr(ou+0.5);

[KARUSHEV]

Спасибо! Все работает