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

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

Маленький баг... [D7, WinXP]

n0p ©   (2005-07-02 22:47:00) 

procedure TClass.Bug();
var
 O: Integer;
 X: Real;
begin
 O := mX - Trunc(mX);
 X := X + O;
end;

Где баг? Проца должна прибавлять к иксу дробную часть переменной mX, которая обьявленна в классе.

 mX: Real;

Incomaptible types: 'Integer' and 'Extended'

---

Eraser   (2005-07-02 23:11:00) [1]

n0p   (02.07.05 23:04) [3]

Ну дык ferr © же подсказал как надо.

---

n0p   (2005-07-02 23:04:00) [2]

Пасиб! Правда алгоритм не заработал :(

---

ferr   (2005-07-02 22:50:00) [3]

Frac

---

Eraser   (2005-07-02 22:49:00) [4]

n0p   (02.07.05 22:47)
Где баг?

O := mX - Trunc(mX);

---

Наверх