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