Calculadora en delphi 7

[nemesio]

Hola

Ya que eres nuevo con delphi, vas a tardar más tiempo tratando de entender el código que te manden que si la haces tu mismo.
Te voy a dar ciertas ideas:
1.- Estudia el Evento OnKeyPress del Edit, es elemental que lo sepas.
2.- Una vez estudiado este evento, te darás cuenta de que puedes capturar todas las teclas numéricas, alfanuméricas y de Caracteres especiales.
3.- Repasa el Uso de Variables.
4.- Cada vez que teclees por ejemplo un Número, lo vas almacenando en una Cadena de Caracteres. El presionar un simbolo como: +,-,/,*,= indicaría que es el fin de la insersión de números.
5.- Si tecleas por ejemplo una Letra, entonces anulas el caracter colocando Key:=#0;

Creo que con esas ideas puedes comenzar. Cualquier duda estoy a la orden.
Recuerda que es más fácil entender un código hecho por ti que el de otra persona.
Suerte.

[jorge1987]

Empezado por nemesio

Hola

Ya que eres nuevo con delphi, vas a tardar más tiempo tratando de entender el código que te manden que si la haces tu mismo.
Te voy a dar ciertas ideas:
1.- Estudia el Evento OnKeyPress del Edit, es elemental que lo sepas.
2.- Una vez estudiado este evento, te darás cuenta de que puedes capturar todas las teclas numéricas, alfanuméricas y de Caracteres especiales.
3.- Repasa el Uso de Variables.
4.- Cada vez que teclees por ejemplo un Número, lo vas almacenando en una Cadena de Caracteres. El presionar un simbolo como: +,-,/,*,= indicaría que es el fin de la insersión de números.
5.- Si tecleas por ejemplo una Letra, entonces anulas el caracter colocando Key:=#0;

Creo que con esas ideas puedes comenzar. Cualquier duda estoy a la orden.
Recuerda que es más fácil entender un código hecho por ti que el de otra persona.
Suerte.

Jjajaja, un poco complicado para alguien que hace 1 semana que usa delphi, no hubiera sido mas simple, decirle:

Pone tres Tedit, y cuatro TButton, , a cada Tbutton, le pones, por ejemplo, algo asi:
Edit3.Text := (Edit1.Text + Edit2.Text);
Eso para el boton de suma,
Edit3.Text := (Edit1.Text - Edit2.Text);
Eso para el de resta, y ais sucesivamente, seria una calculadora bastante precaria, pero me parece que se ba a ser mas facil de desarrollar.
Espero haberte servido de algo.

Saludos

[dec]

Hola,

Personalmente creo que la respuesta de Nemesio es acertada, puesto que se le están dando ideas al compañero, no las cosas hechas. Es cierto que el código fuente, leer código fuente, no está para nada demás, pero, el código que tú propones tiene algunos problemas... ¿no te parece Jorge?

Código Delphi [-]
Edit3.Text := (Edit1.Text + Edit2.Text);
// Eso para el boton de suma

Eso no sumaría lo contenido en los "TEdit", sino que concatenaría los "String" contenidos en ambos "TEdit", lo que no es lo mismo, como sabes. En cuanto a lo que propones para la resta, o sea...

Código Delphi [-]
Edit3.Text := (Edit1.Text - Edit2.Text);

Ese código ni siquiera compilaría, puesto que el operador "-" no se comtempla para el tipo "String".

Por otro lado... ¿dónde has visto una calculadora con más de un "TEdit"? Generalmente se utiliza un sólo "TEdit" tanto para escribir los valores con los que operar como para mostrar los resultados de la operación de marras.

En todo caso... estoy seguro de que si se busca un poco por Internet se dará con el código fuente de alguna calculadora escrita en Delphi y cuya "lógica" pudiera estudiarse.

[Neftali [Germán.Estévez]]

Empezado por jorge1987

por ejemplo, algo asi:
Edit3.Text := (Edit1.Text + Edit2.Text);
Eso para el boton de suma,

Eso no creo que sume...

Empezado por jorge1987

Edit3.Text := (Edit1.Text - Edit2.Text);
Eso para el de resta

Y esto no creo ni que compile...