FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|