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:
Código:
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:
Código:
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