Calculadora

[[Delphius]]

sebaguillen, de lo que estuve viendo, el error se debe a el punto:

Código Delphi [-]
procedure TForm1.BPuntoClick(Sender: TObject);
begin
    if Edicion.Text = '' then
      Edicion.Text:= '0.'
    else
      Edicion.Text:= Edicion.Text + '.';

Lo cambié por coma y listo:

Código Delphi [-]
procedure TForm1.BPuntoClick(Sender: TObject);
begin
    if Edicion.Text = '' then
      Edicion.Text:= '0,'
    else
      Edicion.Text:= Edicion.Text + ',';

Esto se debe a la configuración regional. No me acuerdo cual es la función que permite cambiar esta configuración... se que se ha hablado en los foros sobre esta función (o API).... la verdad no me la acuerdo...

Ahora, te aconsejaría que el código en el botón igual lo mejores. Creo que sería mejor esto:

Código Delphi [-]
case f of:
1: sentencias....
2: sentencias....
3: sentencias....
else 
end;

También se puede reutilizar los eventos Click de los botones. Empleando la proiedad tag:

Código Delphi [-]
procedure TForm1.B1Click(Sender: TObject);
begin
  Edicion.Text := IntToStr((Sender as TButton).Tag);
end;

De modo que pones en el tag el número (para el B1 es 1, etc). Y haces que todos los botones compartan el mismo evento.

Espero que se entienda.
Si tienes mayores dudas avisa.

Saludos,

[sebaguillen]

Hola Delphius te cuento que ya resolvi mi principal problema asi que gracias... Ahora de las recomendaciones que me diste, la ultima no la entendi del todo... que tengo que poner ese codigo en todos los botones?. Otra consulta como tengo que hacer para que tambien pueda escribir por teclado tanto los numeros como las operaciones? Te cuento que yo use el evento 'on key press' pidiendo que escuche solamente los numeros, pero esto funciona solamente cuando el cursor esta en el cuadro de edicion...Como podria hacer? Desde ya muchas gracias...

[[Delphius]]

sebaguillen, con respecto a la última recomendación te la explico mejor.
Como el dódigo de los botones que corresponden a los números es el mismo, ya que en definitiva, lo único que se cambia es el caption que se pasa, yo me valgo de una de las ventajas que tiene Delphi: los eventos compartidos.
¿Que significa esto? Que varios controles pueden hacer uso del mismo evento.

Pones este código en evento onClick del botón 0:

Código Delphi [-]
procedure TForm1.B0Click(Sender: TObject);
begin
  Edicion.Text := IntToStr((Sender as TButton).Tag);
end;

Te explico: El parámetro sender es del tipo TObjet y representa al objeto que envia la orden. Con la orden (Sender as TButton) restringo el tipo de dato y me aseguro de que el objeto sea del tipo TButton.
La propiedad Tag es una propiedad comodín que se le incorpora a los controles y no tiene uso definido... se puede usar para lo que quieras. Valiendome de que es tipo integer, almaceno en ésta el valor del botón. Es decir que para el botón 1, el valor del tag será 1.

Al decir (Sender as TButton).Tag lo que hago es obtener el Tag si el objeto que envia la orden es un botón Y devuelvo dicho valor en el TEdit.

Como verás, en ninguna parte del código pregunto si el botón es el botón 1, 5 o 0... o cualquiera. La magia está en el Tag y el compartir dicho botón. Ya te sigo comentando... esta magia...

Ahora, para cada botón (desde el 1 al 9) haz lo siguiente:
1. Seleccionalo.
2. En el inspector de propiedades busca el evento OnClick. Haz click en la fecha del combo. Te aparecerá en la lista el evento ButtonoClick. Seleccionalo.

Esto, que hiciste, es asignar un evento compartido.

Entonces, la magia consiste ahora en que cuando se pulse cualquier botón (del 0 al 9) se aplique un solo evento. Por ejemplo: se pulsa en botón 5 (Button5). El parámetro sender contendrá el valor "Button5" como Button5 es del tipo TButton se extrae el valor del Tag, que le corresponde, es decir 5.

Es sencillo... y como verás... puede ser muy util.

Con respecto a lo segundo: Si deseas que se escriba en el Edit sin tener el foco en él y que se reciba la orden desde el teclado... debes hacer lo siguiente:
1. Poner la propiedad KeyPreviuw del formulario en true.
2. En el evento onKeyPress del formulario pones el código necesario para que el Edit copie dicho valor.

Espero que se entienda.
Saludos,

PD: Si tienes más dudas, ya sabes...
PD2: Me alegro que hayas solucionado el problema.

[sebaguillen]

hola gente como va? bueno les cuento que pude resolver mi problema gracias a delphius... lo que me estaria quedando es el tema de la conversion de sistemas de numeros, es decir, de decimal a binario, etc. para ello lo que nose es el comando que debo utilizar para sacar el valor absoluto de un numero... desde ya muchas gracias

[[Delphius]]

Hola sebaguillen,
¡Tanto tiempo!

Me alegro que hayas resuelto el problema.
Para obtener el valor absoluto debes emplear la función Abs().

Para hacer las conversiones ve a la ayuda de Delphi. Allí busca por Type conversion routines y numeric formatting routines. Encontrarás las funciones que necesitas: tanto para binario y hexadecimal.

Saludos,

[sebaguillen]

Hola como estan? bueno estoy haciendo un sistema de control de Stock y habia pensado en hacer una barra de menu desplegable comun como la de word o cualquier otro programa (archivo, edicion, etc.) se que existe un boton para hacer esto pero la verdad es que no lo encuentro como tengo que hacer?... Desde ya muchas gracias

P/D: En el caso de que quiera hacer un login para que los usuarios se identifiquen, existe algun metodo de encriptacion predeterminado?

[[eduarcol]]

Pues son dos preguntas deberias abrir un hilo para cada una de ellas

Con el menu: utiliza el componente TMenu

Con el asunto de la encriptacion hay algoritmos distintos, deberas elegir segun tus necesidades