procedure TfrmPageControl.edtmoneyClick(Sender: TObject);
var n:string;
begin
n:=edtin.text
if strtoBloon(edtin.text<>'')=true then
if rbChina.Checked then
edtmoney.text:='(edtin.text<>'')*0.005'
else
if rbgsh.Checked then
edtmoney.text:='(edtin.text<>'')*0.01'
else
if rbjsh.Checked then
edtmoney.text:='(edtin.text<>'')*0.01'
else
edtmoney.Text:='0';
end;
帮我改改
在用delphi编程过程中整型,字符串型,布尔型之间怎么转换
答案:1 悬赏:60 手机版
解决时间 2021-01-31 16:29
- 提问者网友：心如荒岛囚我终老
- 2021-01-31 04:17
最佳答案
- 五星知识达人网友：风格不统一
- 2021-01-31 04:29
字符串要用strtofloat()转换成浮点数才能乘积.
乘积结果是浮点数
用floattostr()转换成字符串即可.
乘积结果是浮点数
用floattostr()转换成字符串即可.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯