Real и edit..

← →
AlexDan © (2009-01-19 17:45) [0]

Ситуация:
cha:real;
cha:=StrToFloat(Edit1.text);
При удалении строки ужасно громко выдаёт совершенно лишнее предупреждение. Как бы от него отказаться (чтобы не было вообще)?

← →
Ega23 © (2009-01-19 18:02) [1]

try
....
except
....
end;

← →
AlexDan © (2009-01-19 18:13) [2]

А можно и так:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(Edit1.text)=0 then
begin
cha:=0;
Edit1.text:="";
end
else
begin
cha:=StrToFloat(Edit1.text);
end;
Edit2.Text:=FloatToStr(cha);
end;
Сам придумал))..

← →
{RASkov} © (2009-01-19 18:19) [3]

> [2] AlexDan © (19.01.09 18:13)

В твоем случае проще if Edit1.Text<>"" then Edit2.Text:=Edit1.Text; :)

Не, число а тоже нужно:).

Если хочется проверить именно правильность ввода вещественного числа, то тогда как нибудь так:
try StrToFloat(Edit1.Text); Edit2.Text:=Edit1.Text; except Edit2.Text:="Error in Edit1"; end;

Real и edit.. Найти похожие ветки