|
Hola,
Perdona por ser tan pesao pero me estoy iniciando en esto, asias por seguir respondiendo.
Lo que me has dixo me ha ido mu bien para saber mas, pero no es lo que yo buscaba. Tu me das un valor concreto a la variant, pero yo lo que quiero es que el valor que tome el Tedit sea variable y que lo determine el usuario; por tanto te digo que como puedo asignar la variant al Tedit o el Tedit a la variant ?
Yo lo que tengo en el codigo del boton es lo siguiente:
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, hay algun fallo ? supongo que si... xD
Tambien a la hora de compilar me salen los siguientes errores:
[Error] conversor.pas(80): Record, object or class type required
[Error] conversor.pas(99): 'END' expected but end of file found
[Error] conversor.pas(28): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
Bueno, a ver si me puedes aclarar un poco más el tema este, ASIAS !!
|