FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
convertir con edit y combobox
Formulario
ver imagen no me funciona me dice error en 0 : begin es un conversor de monedas usando la condicion "case of" Código:
var valor : variant; // Definimos la variable que contendra el valor del edit begin valor := Edit1.text; // Asignamos el valor que el usuario a metido para convertir. case Combobox1.ItemIndex of // Empezamos a ver que queremos convertir 0 : Begin // SI es pesetas, ya que el item pesetas tiene el valor index = 0, pq es el 1er item de la lista Case Combobox2.ItemIndex of // Empezamos a ver en que quermos convertir 0 : Begin Showmessage('Escoga Monedas Distintas'); end; // Ya que intentamos convertir pesetas en pesetas damos error 1 : begin Edit2.text := valor * '0,00601'; end; // Convertimos en euros (1) 2 : begin edit2.text := valor * '0,00532'; end; // Convertimos en Dolares (2) end; // Acabamos con el de convertir pesetas 1 : begin // Empezamos con el de convertir euros case combobox2.itemindex of // Empezamos a ver en que querem 0 : begin .... end; // Convertimos en pesetas Y bueno lo demas lo dejo de tu cuenta, la estructura supongo que esplicada asi que el resto tomatelo como un ejercicio el acabarlo combobox evento OnChange del Combobox Código:
Label1.Caption:= ComboBox1.Items[ComboBox1.ItemIndex]; // El texto de la label1 será el del item seleccionado de la combobox1 |
#2
|
|||
|
|||
Si ese es el código tal cual, checate los begin-end que tienes, ahi esta tu primer error, el otro error que veo es que estas multiplicando valor * '0,00601' eso es un error garrafal, no puedes hacer esa operación, estas tratando de multiplicar dos string.
Trata de mejor usar las etiquetas delphi en lugar de código # Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#3
|
||||
|
||||
Sumado a lo que dice egostar, arespremium te aconsejo mejorar un poco tu pregunta.
Por favor tomate unos minutos y lee la guia de estilo. Muchas gracias. Edito y agrego. Escoje también las palabras adecuadas al dirijirte, como dije antes: leer la guia de estilo. El último comentario expuesto en tu código invita a problemas: Cita:
Saludos, Última edición por Delphius fecha: 25-08-2007 a las 05:35:03. |
#4
|
|||
|
|||
Var
Valor : variant; // Definimos la variable que contendra el valor del edit Begin Valor := Edit1.text; // Asignamos el valor que el usuario a metido para convertir. Case Combobox1.ItemIndex of // Empezamos a ver que queremos convertir 0 : Begin Showmessage('Escoga Monedas Distintas'); end; // Ya que intentamos convertir pesetas en pesetas damos error 1 : Begin Edit2.text := valor * '0,00601'; End; // Convertimos en euros (1) 2 : Begin edit2.text := valor * '0,00532'; End; // Convertimos en Dolares (2) End; // Acabamos con el de convertir pesetas Debes de ir despejando el codigo de una manera legible para ti.. es como dice nuestro compañeros tienes problemas con Begin...y en todo ese codigo puedes que te confundas...por cierto...de momento puedes tener problemas con ese tipo de comentarios como dice nuestro compañero...Estamos para ayudar...Ayudar..creo que en si no debe de tomarse como una obligacion, Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
convertir edit de string a float | Kamael | OOP | 1 | 11-08-2007 03:33:23 |
como mostrar la ventana de lenar inten de un combobox en tiempo de un combobox | gulder | Varios | 3 | 19-05-2007 19:55:58 |
Unir Edit con Edit | Caral | Varios | 8 | 17-11-2006 21:37:35 |
problemas con el el .Edit: qryCONSULTA.Edit | McRose | Conexión con bases de datos | 3 | 07-06-2005 15:46:39 |
Convertir bmp a .ico | jealousy | Gráficos | 2 | 06-10-2003 18:58:26 |
|