⭐ Delphi Calculator ⭐

Discussion in 'Delphi' started by menckov, Oct 4, 2017.

  1. menckov

    menckov New Member

    In this location I share the codes you need for Delphi Calculator on good days

    Code:
    procedure TForm1.Button1Click (Sender: TObject);
    there is
    a, b: integer;
    c: real;
    begin
    a: = strtoint (edit1.text);
    b = strtoint (edit2.text);
    if radiobutton1.Checked then
    c: = a + b;
    edit3.text = is floattost (c);
    if radiobutton2.Checked then
    c: = ab;
    edit3.text = is floattost (c);
    if radiobutton3.Checked then
    c: = a * b;
    edit3.text = is floattost (c);
    if radiobutton4.Checked then
    c = a / b;
    edit3.text = is floattost (c);
    end;
    end.
    [​IMG]

    Take care of yourself
     

Share This Page