Foros Club Delphi - convertir con edit y combobox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - convertir con edit y combobox (https://www.clubdelphi.com/foros/showthread.php?t=47360)

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

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

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:

Y bueno lo demas lo dejo de tu cuenta, la estructura supongo que
esplicada asi que el resto tomatelo como un ejercicio el acabarlo

¿Estás dando a interpretar el hecho de que quieres que hagamos tu tarea?

Saludos,

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.:rolleyes: