Арифметика

← →
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, подскажите пожалуйста.

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

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

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

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