boton de signo = calculadora
 

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
    { Private declarations }
  public
    { Public declarations }
  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

Hola
Para mi el concepto esta interesante, pero para hacer una operacion matematica tendrias que separar el simbolo de la opercion.
En este caso el simbolo esta incluido en la operacion, asi no creo que se pueda.
hay otras maneras de hacerlo.
Para mi habria que reestruccturar el concepto, por supuesto me puedo equivocar.
Saludos

Hola
Aqui esta tu calculadora, se puede mejorar, eso seguro.
Saludos

Hola
Esto si que es molesto.
Te sirvió?, era lo que necesitabas?, quedaron bien los cambios?, etc,etc,etc.
Normalmente cuando se hace un favor a alguien, sea como sea, las reglas de educación dicen que hay que decir GRACIAS, aunque sea por nada, por tomarse el tiempo en leer el hilo.
No es la primera vez que pasa y tomo nota, no trabajo aquí, como tampoco lo hacen los demás, no somos libros de referencia.
Saludos

Hola,

Sin estar en desacuerdo contigo, de hecho la propia guía de estilo viene a encarecer aquello de que es de bien nacidos ser agradecidos, lo cierto es que han pasado 10 horas desde que publicaste el mensaje (y fin de semana que es) Caral, y, es probable que el compañero se desconectase, o en todo caso aún no pudiera agradecer... lo que no sabe.

PD. O tal vez me estoy perdiendo algo. Pero vamos... :)

PD2. Por lo demás, la calculadora que enviaste tiene muy buena pinta. ;)

Hola
Gracias Dec, puede que tengas razón.
Saludos

Hola,

La cosa es que sólo el tiempo dará razón. Y que, pase lo que pase, creo que podremos llegar a la siguiente conclusión: hay personas agradecidas y hay personas desagradecidas. Pero creo que esto no es genético, se puede ir a mejor o a peor en todo caso.

Tal vez esto es así desde el principio de los tiempos... y tal vez sea así hasta el final de ellos. Conclusión, por tanto, que, una vez asumida, te ayuda en los casos en que te encuentras personas desagradecidas, porque, no podía ser de otro modo, es fatal.

PD. No hablo de nadie en concreto (una de las cosas que pasa con las personas desagradecidas es que su conocimiento suele durar poco en el cerebro de las personas agradecidas, si bien esto es ventajoso y no lo es, porque el olvido tiene doble filo), ¿eh? Vamos, que no me estoy refiriendo a nadie. Estoy... ¡filosofando! :D :D

Hola
Hoy amaneciste filosofando, me parece muy bien, eso denota inteligencia y sentido del humor.
Hay que tomarse las cosas del que viene, suelo dar y no pedir, esa es mi norma, pero cuando se da y se piensa que se ha hecho algo, solo algo y revisas como en este caso en que han bajado el arreglo tres veces, piensas, 1= el que lo solicito, 2 y 3 alguien que le intereso el tema, que cuesta ser amable, agradecido, creo que poco comparado a lo que se puede recibir en este club de los que verdaderamente saben.
Tampoco me hagas mucho caso, estoy como tu (Filosofando), hoy es el dia del filosofo :D:D:D
Saludos

Hola muchas gracias por la calculadora

si me sirvio

disculpen la demora

se me corto la luz y por eso no pude acceder al mensaje

saludos