计算器（加了个小数点）。。。

if s_characterlast='''' '''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end;

if s_characterlast=''''-'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end;

if s_characterlast=''''/'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end;
end
//**************//
else
begin
s_characterlast:=''''/'''';
s_number:=edit1.Text;
i:=''''3432'''';
end;
j:=''''3432'''';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
if s_type=''''1'''' then
if (edit1.Text='''''''') then
begin
edit1.Text:=edit1.Text ''''0.'''';
s:=''''123'''';
j:=''''''''; end
else
begin
edit1.Text:=edit1.Text ''''.'''';
s:=''''123''''; end
else begin
if (j<>'''''''') then
begin
edit1.text:='''''''';
edit1.Text:=edit1.Text ''''0.'''';
s_type:=''''1'''';
j:='''''''';
end else
begin
edit1.text:='''''''';
edit1.text:=edit1.Text ''''.'''';
s_type:=''''1'''';
end;
end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
//=======================================//
s_type:=''''0'''';
if s='''''''' then

application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if s_characterlast<>'''''''' then
begin
if s_characterlast=''''X'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text ));
s_number:=edit1.text;
end;

if s_characterlast='''' '''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) strtofloat(edit1.Text ));
s_number:=edit1.text;
end;

if s_characterlast=''''-'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
s_number:=edit1.text;
end;

if s_characterlast=''''/'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
s_number:=edit1.text;
end;
end;
j:=''''3432'''';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
j:='''''''';
s_type:=''''1'''';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
edit1.text:='''''''';
end;

end.

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!