
在用delphi编程过程中整型,字符串型,布尔型之间怎么转换
procedureTfrmPageControl.edtmoneyClick(Sender:TObject);varn:string;beginn:=edtin.text...
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;
帮我改改 展开
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;
帮我改改 展开
1个回答
展开全部
字符串要用strtofloat()转换成浮点数才能乘积.
乘积结果是浮点数
用floattostr()转换成字符串即可.
乘积结果是浮点数
用floattostr()转换成字符串即可.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询