delphi - 运算符不适用于该操作数类型 Delphi

Question

请有人帮我解决这个错误。

[Error] Unit1.pas(39): Operator not applicable to this operand type

代码是:

procedure TForm1.Button1Click(Sender: TObject);
var
  k: Integer;
  broj: Real;
begin
  k := StrToInt(Edit1.Text);
  if k <= 9 then
    broj := k
  else    
    broj := (k + 10) / 2;

  if k mod 2 = 0 then
    broj := broj / 10
  else
    broj := broj mod 10; // error line

  ShowMessage(FloatToStr(broj));    
end;

Answer 1

您不能将 mod 或 div 与浮点类型一起使用，例如真实。或者previous answer你可以使用这个。

broj := Frac(broj / 10) * 10;

或者只是来自System.Math的FMod

broj := FMod(broj, 10);