Delphi Hesap Makinası Yapımı Detaylı Anlatım ∞ Cem Adrian

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer; //burada 2 integer(sayısal) değişken tanımladık.
begin
a:=strtoint(edit1.Text); //burada edit kontrolüne değişken atadık..
b:=strtoint(edit2.Text);
edit3.Text:=floattostr(a+b); //burada sonucu yani a ve b sayılarının toplamını yazdırdık
end;

procedure TForm1.Button2Click(Sender: TObject);
var
a,b:integer; //burada 2 integer(sayısal) değişken tanımladık.
begin
a:=strtoint(edit1.Text); //burada edit kontrolüne değişken atadık..
b:=strtoint(edit2.Text);
edit3.Text:=floattostr(a-b); //burada sonucu yani a ve b sayılarının toplamını yazdırdık
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b:integer; //burada 2 integer(sayısal) değişken tanımladık.
begin
a:=strtoint(edit1.Text); //burada edit kontrolüne değişken atadık..
b:=strtoint(edit2.Text);
edit3.Text:=floattostr(a*b); //burada sonucu yani a ve b sayılarının toplamını yazdırdık

end;

procedure TForm1.Button4Click(Sender: TObject);
var
a,b:integer; //burada 2 integer(sayısal) değişken tanımladık.
begin
a:=strtoint(edit1.Text); //burada edit kontrolüne değişken atadık..
b:=strtoint(edit2.Text);
edit3.Text:=floattostr(a/b); //burada sonucu yani a ve b sayılarının toplamını yazdırdık

end;