Bu konumda size Delphi Hesap makinesi için lazım olan kodları paylaşıyorum iyi günlerde kullanın
Kod:
[SIZE="4"][COLOR="DeepSkyBlue"]procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if radiobutton1.Checked then
c:=a+b;
edit3.Text:=floattostr(c);
if radiobutton2.Checked then
c:=a-b;
edit3.Text:=floattostr(c);
if radiobutton3.Checked then
c:=a*b;
edit3.Text:=floattostr(c);
if radiobutton4.Checked then
c:=a/b;
edit3.Text:=floattostr(c);
end;
end.[/COLOR][/SIZE]
Kendinize iyi bakın
