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 |
#7
|
|||
|
|||
Hola,
Perdona por ser tan pesao, pero me estoy iniciando en esto, asias por seguir respondiendo. Haber tu respuesta me ha ido mu bien, me ha resuelto muchas dudas, pero no es lo que buscaba. Aquí tienes lo que yo he puesto en el botón: procedure TForm1.Button1Click(Sender: TObject); var valor: variant; <== El problema empieza aquí 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; begin valor:=Edit1.Text; case Combobox1.ItemIndex of 1 : begin case Combobox2.ItemIndex of 0 : begin Edit2.Text:= valor * '166.667'; end; 1 : begin ShowMessage ('Escoja monedas distintas'); end; end; Como lo ves ? ves algún fallo, supongo que si. También me salen los siguientes errores a la hora de compilar: [Error] conversor.pas(80): Record, object or class type required [Error] conversor.pas(98): 'END' expected but end of file found [Fatal Error] Project_conversor.dpr(5): Could not compile used unit 'conversor.pas' Qué sucede ? Lo siento, por el rollo, ASIAS |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|