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;
帮我改改