Como asignar variant a un Tedit ¿? ayuda pofavó

[Slaughter]

Hola a todos,

El problema que tengo es el siguiente:
Hasta la declaración de la variable variant todo correcto, pero a la hora de asignar la variant a un Tedit viene el problema; lo que hago es lo siguiente:

procedure ...
var
numero: variant;
begin
numero:=Edit1.Text;
...

end;

ES CORRECTO ¿? Muchas GRACIAS a todos

[marcoszorrilla]

Eso funciona porque el tipo Variant tiene la capacidad de guardar cualquier tipo de dato, pero tendrías que decir que finalidad es la que persigues, por de un variant a un Tedit pueden venir los problemas.

Un Saludo.

[Slaughter]

GRACIAS de antemano, como puedes ver llevo poco tiempo en esto ... xD

Bueno, lo que quiero hacer es un conversor de monedas:
- trabajando con 2 combobox y 2 Tedit; depende de lo que haya en los combos quiero que en los Tedits salga una cosa u otra, para por ejemplo, convertir de pesetas a euros.

a ver si con otra respuesta ya me aclaro un poco mas, ASIAS

[marcoszorrilla]

Para lo que quieres hacer la variable número debiera ser de tipo Double, con esto garantizas que puedes hacer cualquier conversión.

Tendrás que explicar un poco más lo que hay en los combox, supongo que es una lista de nombres de monedas con sus valores de conversión?

Un Saludo.

[Slaughter]

Hola de nuevo,

En los combobox hay lo siguiente:
En un uno hay un listado de las monedas a convertir y en otro el mismo listado, pero en este caso, representan el resultado de la conversion.

Entonces, quiero que cuando en el primer combobox marque, por ejemplo pesetas, y en el otro combobox marque euros, me haga la operacion correcta, es decir:
si pesetas es 0 y euros 1:
procedure ...
var numero: variant; (o double como me has dixo)
begin
case ... of
0: begin Edit2.Text:=valor*'0.00601'; end;
1: begin ...

Por tanto, mi pregunta es la siguiente:
La variable variant como la puedo asignar al Edit1 ?? La tengo que convertir a texto??, ...

Asias. Un saludo

[marcoszorrilla]

Por tanto, mi pregunta es la siguiente:
La variable variant como la puedo asignar al Edit1 ?? La tengo que convertir a texto??, ...

No.

Ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
v:Variant;
begin
v:=3.8922;
edit1.Text:=v;
end;

Un Saludo.