Скачать: CL | DM;

Арифметика   Найти похожие ветки 

← →
Alexandr Malygin ©   (2007-12-03 15:56) [0]

Здравствуйте еще раз, подскажите пожалуйста в чем проблема? привожу свой гениальный код... как я понял проблема в несовместимости типов, а вот как привести их к общему знаменателю не знаю совсем, заранее спасибо!

procedure TForm1.Button1Click(Sender: TObject);
var
bonus: integer;
Q: integer;
V: integer;

begin
Q := strtoint(Edit1.Text);
V := strtoint(Edit2.Text);
bonus := (Q*200) + (V*0.1);         ////////вот здесь ошибка Incompatible   types "integer" and "extended"

end;

---

← →
Джо ©   (2007-12-03 15:59) [1]

var
 Bonus: Extended;

---

← →
Сергей М. ©   (2007-12-03 15:59) [2]

var bonus: Extended

---

← →
Alexandr Malygin ©   (2007-12-03 16:01) [3]

:) спасибо Вам обоим

---

← →
Сергей М. ©   (2007-12-03 16:04) [4]

> Alexandr Malygin


Чеши репу - ты объявил целочисленную переменную и вознамерился хранить в ней значения не целочисленного типа.
Как, думаешь, компилятор на это отреагирует ?
ПРавильно думаешь - он пошлет тебя нафиг, что он и сделал)

---

← →
Alexandr Malygin ©   (2007-12-03 16:05) [5]

а если нужно потом этот bonus вывести в Tlabel какие преобразования нужно еще сделать, для int  к примеру inttostr, подскажите пожалуйста.

---

← →
Сергей М. ©   (2007-12-03 16:09) [6]

> для int  к примеру inttostr


А для значений в формате с п/з - FloatToStr (например)

---

← →
Alexandr Malygin ©   (2007-12-03 16:12) [7]

Спасибо Сергей

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c