Gestion des valeurs nulles dans les variantes à l'aide de Delphi

Je travaille avec un composant COM qui expose beaucoup de Variant propriétés, mais parfois, ces valeurs sont nulles. Quand j'essaie de convertir ces valeurs en chaîne (ou un autre type Delphi) la requête soulève une exception comme ceci:

N'a pas pu convertir la variante de type (Null) type (String)

Mais si j'utilise .net pour appeler les mêmes propriétés et les valeurs sont nulles, sans exception, sont soulevées et les valeurs null sont traités comme des chaînes vides.

Ma question il y a un moyen de gérer ces valeurs null à partir de Delphi éviter ces exceptions?

Merci d'avance.

source d'informationauteur Salvador

  1. 26

    Essayez de définir NullStrictConvert à False.

    Que c'est une variable globale, je l'utilise comme suit afin de minimiser les effets secondaires:

    var
  OldNullStrictConvert: Boolean;
begin
  OldNullStrictConvert := NullStrictConvert;
  NullStrictConvert := False;
  try
    // code containing conversions
  finally
    NullStrictConvert := OldNullStrictConvert;
  end;
end;

    (En réalité, j'ai fait un tuteur de l'interface de ce.)

    NB: Lorsque c'est possible, je préfère un code comme Warren'.

  2. 18

    La accepté de répondre à des modifications d'un paramètre global, et pourrait avoir des effets secondaires indésirables sur le fonctionnement d'un autre code de travail avant de le changer.

    D'abord, vous pouvez simplement utiliser VarToStrDefd'autre part, si vous devez fournir certaines fonctionnalités autres que cela, alors je voudrais avoir mon code d'appeler mon propre fonction MyVarToStr, et de faire comme ceci:

    resourcestring
    SNilValue = '[nil]';


function VarIsAssigned(v:Variant):Boolean; inline;
begin
          result := (v<>Variants.Null) and (not VarIsNull(V));
end;


function MyVarToStr( v:Variant):String;
begin
  if VarIsAssigned(v) then
    result := VarToStr(v)
else
    result := SNilValue;
end;

    Puisqu'il semble que VarToStrDef devrait être assez, je veux simplement démontrer que c'est mieux d'écrire votre code et d'appel de votre propre code, que d'essayer de "changer globalement" le comportement par défaut de la VCL/RTL le code de bibliothèque.

  3. 12

    C'est un comportement documenté de VarToStr fonction. Il n'est pas nécessaire de réinventer la roue.

    Null variante est de type distinct (oui, c'est un type, et non pas simplement une valeur), qui désigne soit manquants ou inconnu de données. Donc, strictement parlant, régulière variante dynamique de frappe ne devrait pas arriver avec Null valeurs (illustré et reflétées dans RTL par défaut).

    donné:

    var
  V: Variant;
  S: string;

    meilleur code

    S := VarToStr(V);             { stongly-typed explicit conversion }

    relativement bon code

    if not VarIsNull(V) then      { program knows what it does, but reproduces RTL behaviour }
  S := V
else
  S := NullAsStringValue;

    mauvais code

    NullStrictConvert := False;   { smelly, from now on Null variant loses its specifics }
S := V;

    encore pire code

    try
  S := V;
except on Eaten: Exception do { stinky PHP-style, hiding error instead of fixing it }
  S := NullAsStringValue;
end;

    REMARQUE: Plus tard Delphi.NET présente exactement le même comportement sur Null variantes, afin OP remarque .NET est discutable.

  4. 4

    ..à partir de user422039 code VarToStr sinon S:=V relais sur une conversion implicite qui peut créer des résultats différents sur les différentes environnement:

    S := VarToStr(V);
or
S := VarToStrDef(V, yourdefaultvalue);
  5. 4

    VarToStr() et VarToStrDef() de la bonne et de la bonne façon de convertir une valeur Null Variant à un Stringcomme ils explicitially vérifier les valeurs Null en interne.