Операция Div

Geraf

всем привет.
пишу

var
  cnstHeightWork: Extended;                                        
  iHeightWork: Extended;
  iWork: Integer;
.....
procedure Memo2OnAfterPrint(Sender: TfrxComponent);
var
  iHeight: Integer;                                                               
begin
    iHeight := iHeightWork div cnstHeightWork;
end;

на строке

    iHeight := iHeightWork div cnstHeightWork;

выдает ошибку : не совпадение типов, почему?? ведь данная операция возвращает целое число!

pig

написал:

выдает ошибку : не совпадение типов, почему?? ведь данная операция возвращает целое число!

Но и операнды должны быть целыми числами. Вот цитата из справки по Delphi
<!--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-->

gpi

Для вещественных чисел используйте функцию Trunc

Geraf

очень стыдно.....
спасибо