如何使用 Div 功能

问题描述

它弹出一个错误：

procedure TForm1.btnDivideClick(Sender: TObject);
var
  dNum1,dNum2,dTotal :double;
begin

  dNum1 := strtofloat (edtNum1.text);
  dNum2 := strtofloat (edtNum2.text);

  dTotal := dNum1 div dNum2;    

  memOutput.Lines.Add('Total: ' + floattostr (dTotal));    
end;

解决方法

Div 是整数除法运算符。浮点除法运算符改为 /：

procedure TForm1.btnDivideClick(Sender: TObject);
var
  dNum1,dNum2,dTotal :double;
begin
  dNum1  := strtofloat(edtNum1.text);
  dNum2  := strtofloat(edtNum2.text);
  dTotal := dNum1 / dNum2;    
  memOutput.Lines.Add('Total: ' + floattostr(dTotal));    
end;