El código del botón que uso para calcular la conversión es el siguiente:
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;
A ver si con esto podeis solucionarme el marron,
Asias
|