slaughter
26 de Febrero del 2004

Hola,

Estoy intentando hacer un conversor de monedas y en el codigo del boton calcular debo tener algun fallo porque no me deja compilar, aqui os muestro lo que he hecho:

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 veis ? me podeis decir donde está el fallo?
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

danny
26 de Febrero del 2004

prueba esto a ver si es lo que necesitas

procedure TForm1.Button1Click(Sender: TObject);
var
valor: variant;
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;
End;
1 : begin
case Combobox2.ItemIndex of
0 : begin Edit2.Text:= valor * '166.667'; end;
1 : begin ShowMessage ('Escoja monedas distintas'); end;
end;
End;
End;
end;

slaughter
26 de Febrero del 2004

Hola de nuevo,

Muchas gracias, lo que me dijiste me funcionó de coj....; por cierto, tengo otra duda a ver si puedes solucionarla:

Como puedo hacer para que me salga por ejemplo: en lugar de 166667, me salga 166.667. Lo mismo con euros, ...

Gracias, un saludo.