Como asignar variant a un Tedit ¿? ayuda pofavó

[Slaughter]

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 !!

[marcoszorrilla]

No veo bien el planteamiento pero debes de utilizar una variable Double y no Variant como estás haciendo. Pero te adjunto algunas correcciones al código.

var
valor: Double; //<== El problema empieza aquí
begin
valor:=StrToFloat(Edit1.Text);
//
0 :ShowMessage ('Escoja monedas distintas');//solo tiene una línea no es necesario Begin...end
1 :Edit2.Text:=FloatToStr( valor * 0.00601);

Un Saludo.

[Slaughter]

Hola de nuevo,

Estuve probando lo que me dijiste sobre el double y me ha ido de coj..., pero no me deja compilar la aplicación.
Cuando le doy a F9 para compilar me marca la linea de codigo siguiente:
end.

Que puede ser ?
Junto lo que me dijiste le seguí poniendo el case combobox of y el calculo lo puse de la manera que me dijiste pero no acabo de solucionar el problema, a ver si con esto ya sabes por donde voy y lo quiero conseguir.

Asias