Операция Div

отредактировано October 2007 Раздел: FastReport 4.0
всем привет.
пишу
var
  cnstHeightWork: Extended;                                        
  iHeightWork: Extended;
  iWork: Integer;
.....
procedure Memo2OnAfterPrint(Sender: TfrxComponent);
var
  iHeight: Integer;                                                               
begin
    iHeight := iHeightWork div cnstHeightWork;
end;

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

Комментарии

  • pigpig г. Волноваха Донецкой области Украина
    отредактировано October 2007
    написал:
    выдает ошибку : не совпадение типов, почему?? ведь данная операция возвращает целое число!
    Но и операнды должны быть целыми числами. Вот цитата из справки по 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-->
  • gpigpi
    отредактировано 19:59
    Для вещественных чисел используйте функцию Trunc
  • отредактировано 19:59
    :) очень стыдно.....
    спасибо :)

Оставить комментарий