Bonsoir Bernard en cherchant à me documenter sur VarTypeAsText , j'ai découvert ce site http://www.scitools.com/udelphi_example_reports/32697.html#11 ou j'ai pu copier cette fonction que j'ai utilisée mais j'ai toujours une erreur " Indice de tableau de variants hors limite "

Mario

function VarTypeAsText(const AType: TVarType): string; const CText: array [varEmpty..varInt64] of string = ('Empty', 'Null', 'Smallint', //Do not localize 'Integer', 'Single', 'Double', 'Currency', 'Date', 'OleStr', 'Dispatch', //Do not localize 'Error', 'Boolean', 'Variant', 'Unknown', 'Decimal', '$0F', 'ShortInt', //Do not localize 'Byte', 'Word', 'LongWord', 'Int64'); //Do not localize var LHandler: TCustomVariantType; begin if AType and varTypeMask <= varInt64 then Result := CText[AType and varTypeMask] else if AType = varString then Result := 'String' //Do not localize else if AType = varAny then Result := 'Any' //Do not localize else if FindCustomVariantType(AType, LHandler) then Result := Copy(LHandler.ClassName, 2, High(Integer)) else Result := HexDisplayPrefix + IntToHex(AType and varTypeMask, 4);

if AType and varArray <> 0 then Result := 'Array ' + Result; //Do not localize if AType and varByRef <> 0 then Result := 'ByRef ' + Result; //Do not localize end;

Bernard Marcelly a écrit :