DELPHI无效的浮点型？解决思路
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吧
------解决方案--------------------
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吧
------解决方案--------------------