delphi做计算器的小数点的代码？

要begin和end之间的代码

3、按钮“.”：双击按钮”.”，在begin和end之间添加代码如下
if edit1.Text='' then edit1.Text:=''
else begin
if pos('.',edit1.Text)<>0 then edit1.Text:=edit1.Text
else edit1.Text:=edit1.Text+'.';
end;

5、按钮“+”
if edit1.Text='' then edit1.Text:=''
else begin
flag:='+';
x:=strtofloat(edit1.Text);
edit1.Clear;
end;
6、类似的，添加“-”“*”“/”的代码
7、按钮“=”
if edit1.Text='' then edit1.Text:=''
else
case flag of
'+': edit1.text:=floattostr(x+strtofloat(edit1.Text));
'-': edit1.text:=floattostr(x-strtofloat(edit1.Text));
'*': edit1.text:=floattostr(x*strtofloat(edit1.Text));
'/': begin
y:=strtofloat(edit1.Text);
if y=0 then edit1.Text:='99999999999999999999999999999999'
else edit1.text:=floattostr(x/strtofloat(edit1.Text));
end;
end;
8、按钮“退出”
close;
二、 保存and运行
执行File|Save Project As，新建文件夹，将dpr及相关文件保存到里面
F9运行程序

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息