Hola tengo un problema con el boton de signo "=" es el que da el resultado
Ver la imagen
eh intentado de diversas maneras y no que funciona
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Edit1: TEdit;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure Button14Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button14Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button14.caption
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Clear;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button12.caption;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button13.caption;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button15.caption;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button17.caption;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
cero: integer;
begin
cero := 0;
edit1.text := edit1.text + inttostr(cero);
end;
procedure TForm1.Button6Click(Sender: TObject);
var
cero: integer;
begin
cero := 1;
edit1.text := edit1.text + inttostr(cero);
end;
procedure TForm1.Button5Click(Sender: TObject);
var
dos: integer;
begin
dos := 2;
edit1.text := edit1.text + inttostr(dos);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
tres: integer;
begin
tres := 3;
edit1.text := edit1.text + inttostr(tres);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
cuatro: integer;
begin
cuatro := 4;
edit1.text := edit1.text + inttostr(cuatro);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
cinco: integer;
begin
cinco := 5;
edit1.text := edit1.text + inttostr(cinco);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
seis: integer;
begin
seis := 6;
edit1.text := edit1.text + inttostr(seis);
end;
procedure TForm1.Button10Click(Sender: TObject);
var
siete: integer;
begin
siete := 7;
edit1.text := edit1.text + inttostr(siete);
end;
procedure TForm1.Button8Click(Sender: TObject);
var
ocho: integer;
begin
ocho := 8;
edit1.text := edit1.text + inttostr(ocho);
end;
procedure TForm1.Button9Click(Sender: TObject);
var
nueve: integer;
begin
nueve := 9;
edit1.text := edit1.text + inttostr(nueve);
end;
end.
aca esta la aplicacion solo le falta el boton = que es el que da el resultado final
Bajar