|
Hola,
Perdona por ser tan pesao, pero me estoy iniciando en esto, asias por seguir respondiendo.
Haber tu respuesta me ha ido mu bien, me ha resuelto muchas dudas, pero no es lo que buscaba. Aquí tienes lo que yo he puesto en el botón:
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 ves ? ves algún fallo, supongo que si. 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
|