fj：= 0;sl:= 0;
try
fj:= strtofloat(edit1.text);
except
messagebox('房价输入无效');
edit1.setfoucus;
end;
try
sl:= strtofloat(edit2.text);
except
messagebox('税率输入无效');
edit2.setfoucus;
end;
edit3.text := format('%.2f',sl*fj);
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024