Текущий архив: 2009.03.01;
Скачать: CL | DM;

Вниз

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; :)

---

← →
AlexDan ©   (2009-01-19 18:23) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2009.03.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c