| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Real и edit.. [D7, XP]

AlexDan ©   (2009-01-19 17:45:00) 

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

---

{RASkov}   (2009-01-19 18:24:00) [1]

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

---

AlexDan   (2009-01-19 18:23:00) [2]

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

---

{RASkov}   (2009-01-19 18:19:00) [3]

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

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

---

AlexDan   (2009-01-19 18:13:00) [4]

А можно и так:
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;
 Сам придумал))..

---

Ega23   (2009-01-19 18:02:00) [5]

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

---

Наверх