小弟新人学习为主！哪位大侠有计算器程序的原代码啊？收到给分！！（100）

Question

小弟最近学DELPHI，想借大家程序一看，想想还是计算器程序比较实用，在这里谢谢了！信誉良好，一定给分！！

Answer 1

这个也很好写x:=x+y;
...........多动动脑子，，，源代码好像没有

Answer 2

yywulan(鬼见怕) 所言极是不要动不动就要现成的

Answer 3

你的邮件是多少，我发一个给你，我的mail:[email protected]

Answer 4

unit main; interface uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; type 
  TForm1 = class(TForm) 
    Edit1: TEdit; 
    Label1: TLabel; 
    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; 
    Button16: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button14Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button8Click(Sender: TObject); 
    procedure Button12Click(Sender: TObject); 
    procedure Button16Click(Sender: TObject); 
    procedure Button15Click(Sender: TObject);   private 
  s:string; 
  n:integer; 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); 
begin 
edit1.text:=edit1.text+Tbutton(sender).Caption; end; procedure TForm1.Button14Click(Sender: TObject); 
begin 
s:=edit1.text; edit1.text:='   '; 
//edit.clear; 
end; procedure TForm1.Button4Click(Sender: TObject); 
begin 
s:=edit1.text; 
n:=1; 
edit1.text:='   '; 
//edit.clear; 
end; procedure TForm1.Button8Click(Sender: TObject); 
begin 
s:=edit1.text; 
n:=2; 
edit1.text:='   '; 
//edit.clear; 
end; 
procedure TForm1.Button12Click(Sender: TObject); 
begin 
s:=edit1.text; 
n:=3; 
edit1.text:='   '; 
//edit.clear; 
end; 
procedure TForm1.Button16Click(Sender: TObject); 
begin n:=4; 
edit1.text:='   '; 
//edit.clear; 
end; 
procedure TForm1.Button15Click(Sender: TObject); 
var t:real; begin 
case n of 1: t:=strtofloat(s)+strtofloat(edit1.text); 
2: t:=strtofloat(s)-strtofloat(edit1.text); 
3: t:=strtofloat(s)*strtofloat(edit1.text); 
4: if  strtofloat(edit1.text)=0 then showmessage('³&Ê&Î&Á&'); else 
t:=strtofloat(s)/strtofloat(edit1.text); 
end; 
  edit1.text:=floattostr(t); 
   end; 
end. 

Answer 5

http://stgzs.myetang.com/delphimysrc/count.zip

Answer 6

谢谢各位，邮箱是：
[email protected]我觉得看别人的东西比看书快，容易学，嘿嘿

Answer 7

顺便帮忙看看我这有什么问题，这么简单的东西总是不好用！
---------------------------------------------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm1.Button1Click(Sender: TObject);
var s:real;
    m:real;
    b:real;
    z:string;
begin
z:=Edit1.Text;
b:=strtofloat(z);
m:=b-950
if m<=0 then
   s:=0
   end;
if m>0 and m<=500 then
   s:=m*0.05;
   end;
if m>500 and m<=2000 then
 s:=m*0.1-25
 end;
if m>2000 and m<=5000 then
 s:=m*0.15-125
 end;
if m>5000 and m<=20000 then
 s:=m*0.2-375
end;
if m>20000 and m<=40000 then
  s:=m*0.25-1375
  end;
if m>40000 and m<=60000 then
  s:=m*0.3-3375
  end;
if m>60000 and m<=80000 then
  s:=m*0.35-6375
end;
if m>80000 and m<=100000 then
  s:=m*0.4-10375
 end;
if m>100000 then
  s:=m*0.45-15375
  end;
 edit2.text:=floattostr(s)
end;end.