计算器（加了个小数点）

　2006-02-04 14:17:31　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫嶅銈嗗姉閸樠囧煡婢跺á鐔兼煥鐎ｎ兘鍋撴繝姘拺鐟滅増甯掓禍浼存煕閹惧鈽夐柍缁樻煥椤繈鎳滅喊妯诲闂備礁鎲＄粙鎴︺偑閺夋垟鏋旈柡鍐ｅ亾缂佺粯绋撴禒锕傚磼濮橆剦鐎抽梻浣哥－缁垶骞戦崶顒傚祦閻庯綆浜栭弨浠嬫煙闁箑澧い鏂垮€规穱濠囨倷椤忓嫧鍋撻弽褜娼栧┑鐘宠壘閸屻劎鎲歌箛娑樼疅闁圭虎鍠楅弲鎼佹煥閻曞倹瀚�

核心提示： unit jisuanqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TFor

unit jisuanqiU;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
　 Button1: TButton;
　 Button2: TButton;
　 Button3: TButton;
　 Button4: TButton;
　 Button5: TButton;
　 Button6: TButton;
　 Button7: TButton;
　 Button8: TButton;
　 Button9: TButton;
　 Button10: TButton;
　 Button11: TButton;
　 Button12: TButton;
　 Button13: TButton;
　 Button14: TButton;
　 Button15: TButton;
　 Panel1: TPanel;
　 Edit1: TEdit;
　 Button17: TButton;
　 Button16: TButton;
　 Button18: TButton;
　 PRocedure Button1Click(Sender: TObject);
　 procedure Button2Click(Sender: TObject);
　 procedure Button3Click(Sender: TObject);
　 procedure Button4Click(Sender: TObject);
　 procedure Button5Click(Sender: TObject);
　 procedure Button6Click(Sender: TObject);
　 procedure Button7Click(Sender: TObject);
　 procedure Button8Click(Sender: TObject);
　 procedure Button9Click(Sender: TObject);
　 procedure Button10Click(Sender: TObject);
　 procedure Button12Click(Sender: TObject);
　 procedure Button13Click(Sender: TObject);
　 procedure Button14Click(Sender: TObject);
　 procedure Button15Click(Sender: TObject);
　 procedure Button17Click(Sender: TObject);
　 procedure Button16Click(Sender: TObject);
　 procedure Button11Click(Sender: TObject);
　 procedure FormShow(Sender: TObject);
　 procedure Button18Click(Sender: TObject);
private
　 { Private declarations }
public
　 { Public declarations }
end;

var
Form1: TForm1;
// num,num1,num2:integer;
s,j,i,s_number,s_type,s_characterlast:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'1';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'1';
s_type:='1';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'2';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'2';
s_type:='1';
end;
　　 end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'3';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'3';
s_type:='1';
end;;
　　 end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'4';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'4';
s_type:='1';
end;
　　 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'5';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'5';
s_type:='1';
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'6';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'6';
s_type:='1';
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'7';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'7';
s_type:='1';
end;
　　 end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'8';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'8';
s_type:='1';
end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if s_type='1' then begin
edit1.Text:=edit1.Text+'9';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'9';
s_type:='1';
end;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin

if s_type='1' then begin
edit1.Text:=edit1.Text+'0';
s:='123'; end
else begin
edit1.text:='';
edit1.text:=edit1.Text+'0';
s_type:='1';
end;

end;

procedure TForm1.Button12Click(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:='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:='';
　　　 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:='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.