delphi - Delphi 中的 EInvalidOp 异常

Question

我的 Delphi 应用程序EInvalidOp在用户 PC 上引发异常：无效的浮点操作

这里 ：

var
progress100 :extended;
taille_cur : int64;
i : Integer;

begin

...

progress100 := min(taille_cur div 2 * 100 / i, 99) // **raises the exception**


....
end;

我不知道为什么。当 progress100 是一个整数时，它工作得很好。我将其更改为扩展。或者变量可能i为零......

请帮忙。

Answer 1

我能看到发生该错误的唯一方法是 fori等于0。

如果您的代码在调试器下运行，这类问题通常更容易解决。您可以简单地检查表达式参数的值，然后就清楚为什么会发生错误。