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

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:=''''8567'''';
end;
j:=''''3432'''';
end;

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

application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if i<>'''''''' then
begin
if s_characterlast=''''X'''' 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;

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:=''''432423'''';
end;
j:=''''3432'''';
end;

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

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

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

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

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

procedure TForm1.Button15Click(Sender: TObject);
begin
s_type:=''''0'''';
if s='''''''' then
application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if i<>'''''''' then
begin
if s_characterlast=''''X'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';

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