请有人帮我解决这个错误。
[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;
最佳答案
您不能将 mod
或 div
与浮点类型一起使用,例如真实
。
或者previous answer你可以使用这个。
broj := Frac(broj / 10) * 10;
或者只是来自System.Math
的FMod
broj := FMod(broj, 10);
关于delphi - 运算符不适用于该操作数类型 Delphi,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53432264/