FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
En lugar de Label quería decir Edit ...
Holas,
A ver el problema que tengo es que no me sale el resultado como yo quisisera (no la operación sino la forma en que se presenta el resultado). Creo que lo que dice Eduarcol se acerca a lo que quiero, pero donde meteria esta linea de codigo? (en que evento, ...) Gracias a los dos (Nuria, Eduarcol) Un saludo. |
#2
|
||||
|
||||
Lo deberas colocar cuando le asignes el valor al TLabel, si nos muestras el codigo donde haces esta asignacion te podria echar una manito
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
|||
|
|||
El código del botón que uso para calcular la conversión es el siguiente:
procedure TForm1.Button1Click(Sender: TObject); var valor: variant; begin valor:=Edit1.Text; case Combobox1.ItemIndex of 0 : begin case Combobox2.ItemIndex of 0 : begin ShowMessage ('Escoja monedas distintas'); end; 1 : begin Edit2.Text:= valor * '0.00601'; end; 2 : begin Edit2.Text:= valor * '0.00532'; end; end; End; 1 : begin case Combobox2.ItemIndex of 0 : begin Edit2.Text:= valor * '166.667'; end; 1 : begin ShowMessage ('Escoja monedas distintas'); end; end; End; End; end; A ver si con esto podeis solucionarme el marron, Asias |
|
|
|