hoca bize delphide hesap makinesi yapın dedi sadece +, -, /, * tuşları çalışıcak birde temizle tuşu çalışıcak aynı windows hesap makinesi gibi ama ben anlamadım ya nasıl yapıcam yardım edin lutfen acill carsamba gunu vercekmısız hoca bugun verdi odevv:( 

ben göndereyim dicem ama  biraz geç olmuş 

valla hala kabul edıyorum cunku sınavdada sorabılır

Vallaha ben daha yeni üye oldum gördüm sana kim se yardım etmemiş bari ben edem dedim.

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Button1.Caption:='+';
Button2.Caption:='-';
Button3.Caption:='*';
Button4.Caption:='/';
Button5.Caption:='=';
Button6.Caption:='C';
Label1.Caption:='';
Label2.Caption:='=';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption :='+';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption :='-';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption :='*';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption :='/';
end;

procedure TForm1.Button5Click(Sender: TObject);
var
a,b:integer;
c:real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
if label1.Caption='+' then c:=a+b;
if label1.Caption='-' then c:=a-b;
if label1.Caption='*' then c:=a*b;
if label1.Caption='/' then c:=a/b;
Edit3.Text:=FloatToStr(c);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
a:integer;
begin
a:=Application.MessageBox('eminmisiniz','DİKATT!!!',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2);
if a=6 then Action:=caFree ;
if a=7 then Action:=caNone ;
end;

end.
 inşallah bir işe yarar

saol

daha kapsamlı bir hesap makinası bilen varsa yada yapabilen bana yardımcı olabilirmi???

benim yaptığım hesap makineside buna benzio ama daha değişik butonlar ekledim numaralar 4 işlem silme butonu vs label1.caption a yazıyo hangi sayı butonuna basarsan ihtiyac olursa kodları atabilirim (:

button1click    --->> "1" tuşu
begin
label.caption:=label.caption+"1";
end;
ayni sekilde "2","3",...,"9","0" tuşlarını da kodlayın virgül de ise artı olarak virgül tuşunun enabled özelliğini false yapin sonra bunlari +,- gibi işlemlere tıklanınca virgül ün enabled ini true yapin ...