Convertir variable tipo variant a double
 

Hola Comunidad, Gusto en saludarlos....sucede que necesito transformar a double un dato que me vi forzado a definir como variant ( debido a que es el retornado por un Store Procedure de un SQLSERVER2000 ) sin embargo, no lo he conseguido. Puedo asegurar que el dato retornado esta bien, puesto que se visualiza correctamente al ejecutarlo.
Lo he pasado a una variable tipo string y lo muestra ok (svalor) pero al llevarlo a una variable tipo double (fFolio_esp) ...siempre me arroja 0 (cero).
Estimados, olvidaba mencionar que el valor lo rescato mediante un Tadoquery...

CODIGO


sql.Add('execute @return_status = SP parametros...');
sql.add('select @return_status as valor ');


sValor := vartostr(Qry_sp.Fieldbyname('valor').Asvariant);
fFolio_esp := Strtofloat(sValor);




Espero alguien me de una ayuda ojala con el código, ya que he realizado bastantes pruebas.

Agredecido de Uds. se despide afectuosamente

Confucio

He hecho algunas pruebas y la conversión no me falla, claro que no puedo ver el valor que tiene en el momento de la conversión sValor.

Código Delphi [-]
sValor     :=  vartostr(Qry_sp.Fieldbyname('valor').Asvariant);
ShowMessage(sValor);
fFolio_esp := Strtofloat(sValor);

Mira a ver si ves algo extraño.

Un Saludo.

Estimado Marcos:
es exactamente lo mismo que tengo, a mi tambien me muestra bien el valor el showmessage, la duda es....que te muestra fFolio_esp.

...que estes bien

Confucio

Como yo lo hago todo con variables puesto que no puedo obtener el valor de la fuente que tu lo obtienes, me funciona todo correctamente y me muestra siempre el valor que introduzco en la variable Variant, luego lo paso a texto y finalmente a Double.

Lo he colocado espacios al final y al principio y siempre me devuelve el valor correcto.

Un Saludo.