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

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

Игнорирование невидимых компонентов

ser35 ©   (2005-03-02 14:24:00) 

Делаю расчет (заполняя Edit). В некоторых случаях нжно НЕ заполнять Edit-ы (тогда они невидимы). Но тогда всплывает сообщение: "is not valid floating point value". В этом случае попытался запретить расчет:
var
a1,b1,v1: real;
begin
if Form1.Edit1.Visible:=true then
a1:=StrToFloat(Form1.Edit1.Text);
b1:=StrToFloat(Form9.Edit1.Text);
V1:=a1*b1;
Form9.EditR1.Text:=FloatToStr(v1);
Догадываюсь, что происходит несоответствие.Подскажите, пожалуйста как правильно это написать.
Спасибо за советы

---

ser35   (2005-03-02 14:32:00) [1]

Ребята, вы просто МОЛОДЦЫ!!!
Спасибо за помощь чайнику :-)))

---

Антоныч   (2005-03-02 14:29:00) [2]

var
a1,b1,v1: real;
begin
if Form1.Edit1.Visible=true then begin
a1:=StrToFloat(Form1.Edit1.Text);
b1:=StrToFloat(Form9.Edit1.Text);
V1:=a1*b1;
Form9.EditR1.Text:=FloatToStr(v1);
end;

---

Sandman25   (2005-03-02 14:28:00) [3]

begin забыли

---

Юрий Зотов   (2005-03-02 14:28:00) [4]

Похоже, пропущено begin-end.
И "= True" - не нужно.

---

Наверх