DELPHI无效的浮点型？？
var a,b:integer;

Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);

无效的浮点型？？是0的问题吗？应该怎么改？


[解决办法]
肯定是字段中存在字符什么的，或者是NULL，不能AsInteger?
那么就可以AsString，然后人工判断，先TryStrToInt,再计算百分比。

我测试是a=0情况都不出错，我用的是Turbo Delphi，代码如下。
procedure TForm1.Button1Click(Sender: TObject);
const a=0;b=76;
begin
Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);
end;
[解决办法]
Edit1.text:=format('%n%%',[(a-b)/a*100]);

[解决办法]
onActivate吧
[解决办法]