Error usando tipo Variant

[silviodp]

Lepe:
te comento que formule la pregunta lo mejor que pude es cierto por ahi no aclare cosas importantes sin darme cuenta, igual sin estas aclaraciones hubo alguien que me respondio.
Si tenes ganas de responderme la Tabla es Paradox 7, sino no hay drama.

[uhilari]

Hola amigo Forista.

La verdad seria bueno que pusieras algo de codigo para poder ayudarte con mas exactitud. Pero me parece que tu problema esta al querer convertir tus datos de Variant a String no es asi?

Entonces te recomendaria que utilices la funcion VarToStr que transforma una dato Variant a String sin importar el tipo interno, ya sea fecha, entero o real no importa.

Como te repito seria mejor un poco de código para ser mas preciso. De todas formas espero haberte ayudado algo.

[[Lepe]]

Silviodp, antes de nada te pido disculpas si te he molestado, no era mi intención. Sinceramente, la respuesta que yo te di, me la podrían haber dado a mi en otras ocasiones jejejee.

En cuanto a tu problema, no creo que se trate de una simple traduccion de ingles a español, "message 'Invalid variant type conversion'", por eso pedía un poco de código.

Considero que la pregunta es muy amplia, por tanto solo podemos dar soluciones generales

en ocasiones he usado algo como esto:

var v:Variant;
begin
v := tabla.lookup('idcliente', '32', 'idcliente');
if vartype(v) in [varnull] then
   showmessage('no existe en la base de datos el cliente con codigo 32')
else
   showmessage('SI existe en la base de datos el cliente con codigo 32')
end;

aqui hay una serie de constantes que pueden ser usadas:

const
  varEmpty    = $0000;
  varNull     = $0001;
  varSmallint = $0002;
  varInteger  = $0003;
  varSingle   = $0004;
  varDouble   = $0005;
  varCurrency = $0006;
  varDate     = $0007;
  varOleStr   = $0008;
  varDispatch = $0009;
  varError    = $000A;
  varBoolean  = $000B;
  varVariant  = $000C;
  varUnknown  = $000D;
  varShortInt = $0010;
  varByte     = $0011;
  varWord     = $0012;
  varLongWord = $0013;
  varInt64    = $0014;
  varStrArg   = $0048;
  varString   = $0100;
  varAny      = $0101; 
  varTypeMask = $0FFF;
  varArray    = $2000;
  varByRef    = $4000;

La verdad, no sé si puede servirte de algo, ese ejemplo es copiado de la ayuda de delphi, igual te interesa buscar en la ayuda sobre funciones con tipos Variants.

Espero poder ayudarte más en otras ocasiones. Saludos