Операция Div
всем привет.
пишу
на строке
пишу
var
cnstHeightWork: Extended;
iHeightWork: Extended;
iWork: Integer;
.....
procedure Memo2OnAfterPrint(Sender: TfrxComponent);
var
iHeight: Integer;
begin
iHeight := iHeightWork div cnstHeightWork;
end;
на строке
iHeight := iHeightWork div cnstHeightWork;
выдает ошибку : не совпадение типов, почему?? ведь данная операция возвращает целое число!
Комментарии
<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->Arithmetic operators, which take real or integer operands, include +, -, *, /, div, and mod.
Binary arithmetic operators
Operator_Operation________Operand types_Result type____Example
+________addition_________integer, real_integer, real__X + Y
-________subtraction______integer, real_integer, real__Result - 1
*________multiplication___integer, real_integer, real__P * InterestRate
/________real division____integer, real_real___________X / 2
div______integer division_integer_______integer________Total div UnitSize
mod______remainder________integer_______integer________Y mod 6<!--fontc--></span><!--/fontc-->
спасибо