Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Арифметика

Alexandr Malygin © (2007-12-03 15:56:00)
Здравствуйте еще раз, подскажите пожалуйста в чем проблема? привожу свой гениальный код... как я понял проблема в несовместимости типов, а вот как привести их к общему знаменателю не знаю совсем, заранее спасибо!

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;

Alexandr Malygin (2007-12-03 16:12:00) [1]
Спасибо Сергей

Сергей М. (2007-12-03 16:09:00) [2]

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

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

Alexandr Malygin (2007-12-03 16:05:00) [3]
а если нужно потом этот bonus вывести в Tlabel какие преобразования нужно еще сделать, для int к примеру inttostr, подскажите пожалуйста.

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

> Alexandr Malygin

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

Alexandr Malygin (2007-12-03 16:01:00) [5]
:) спасибо Вам обоим

Джо (2007-12-03 15:59:00) [6]
var
Bonus: Extended;

Сергей М. (2007-12-03 15:59:00) [7]
var bonus: Extended

Наверх

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