Toolbar Matematik İşlemleri

Toolbar,3Label,3Edit ekleyiniz. Toolbar üzerine 5buton olsun ve bu butonlar yardımıyla matematiksel işlemler yapalım. 

procedure TForm1.ToolButton1Click(Sender: TObject);

 

begin

 

edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));

 

end;

 

  

 

procedure TForm1.ToolButton2Click(Sender: TObject);

 

begin

 

edit3.text:=floattostr(strtofloat(edit1.text)-strtofloat(edit2.text));

 

end;

 

  

 

procedure TForm1.ToolButton3Click(Sender: TObject);

 

begin

 

edit3.text:=floattostr(strtofloat(edit1.text)*strtofloat(edit2.text));

 

end;

 

procedure TForm1.ToolButton4Click(Sender: TObject);

 

begin

 

edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text));

 

end;

 

  

 

procedure TForm1.ToolButton5Click(Sender: TObject);

 

var     

 

i,sayi,fak:integer;

 

begin

 

fak:=1;

 

sayi:=strtoint(edit1.text);

 

For i:=1 to sayi Do

 

fak:=fak*i;

 

edit3.text:=inttostr(fak);

 

end;

 

end.