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.
