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

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

Ошибка компиллятора? [D7, XP]

Страницы:   < 1 2 3 >

AlexDan ©   (2008-08-18 21:45:00) 

При нажатии (выборе) CheckBox переменная rpr проинимает знач. 0.4, но в if кнопки Button1 почему-то к 0.4 не приравнивается (почему-то уходит в условие else) ..
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if rpr=0.4 then
   begin
    if frac(cha/0.4)=0 then
    begin
    pr1:=cha/0.4-1;
    end
    else
    begin
    pr1:=round(cha/0.4);
    end;
   cd60:=pr1*chb{+perem*1.2};
   end
   else
   begin
   cd60:=pr1*chb{+perem*1.2};
   end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then

 begin rpr:=0.4;
      {Edit2.text:=inttostr(klkrab);}

 end

else
 begin rpr:=0;
end;
end;

---

Германн   (2008-08-18 21:48:00) [41]

> if rpr=0.4 then

Ну сколько надо повторять, что нельзя сравнивать нецелые числа на точное равенство.
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374

---

Сергей М.   (2008-08-18 21:47:00) [42]

> переменная rpr проинимает знач. 0.4


Верь глазам своим.

---

Страницы:   < 1 2 3 >

Наверх