Question

delphi里div运算符的问题

gongzi:real;
begin
if edit1.text=''then edit1.text:='0';
gongzi:=strtofloat(edit1.Text);
edit2.Text:=floattostr(gongzi div 100);
gongzi:=gongzi-((gongzi div 100)*gongzi);
edit3.Text:=floattostr(gongzi div 50);
gongzi:=gongzi-((gongzi div 50)*gongzi);
edit4.Text:=floattostr(gongzi div 20);

这一段无法通过
提示是
Operator not applicable to this operand type
求改正

Answer 1

DIV是整数除法，你既然转换为实数，那么就该用实数除法： / 来做除法运算