La vérification de la Variante de la valeur “Rien”

C'est quelque chose que j'ai couru dans la dernière année, et semble être un bon endroit pour documenter 🙂

Q: Lors de l'automatisation d'Excel (/Word/...) à partir de Delphi, comment puis-je vérifier si une fonction Excel retourné la variante Nothing (comme il est appelé dans VBA)?

InformationsquelleAutor |
  1. 9

    La VarIsClear fonction de votre situation, où le type est varDispatch et la valeur est nil. Il comprend aussi des vides et des "inconnus" des valeurs, et des types de variantes. Je le vois dans mon Delphi 2005 source; je ne sais pas comment beaucoup plus tôt, il était inclus.

    • ?! Vous avez raison! J'ai complètement oublié celui-là! J'ai accepté votre réponse, et changer mon code source 😉 Merci beaucoup!
    InformationsquelleAutor
  2. 4

    Curieusement, VBA Nothing est pas le même que Unassigned, Null ou Empty, de sorte que vous ne pouvez pas utiliser, par exemple:

    // Worksheet is a TExcelWorksheet or OleVariant coupled to an open worksheet
MyRange := Worksheet.Range['MyRangeInTheWorksheet', EmptyParam]
if (MyRange = Null) then  // won't work!
  MsgBox('The range doesn''t exist!');

    Au lieu de cela, utilisez cette fonction:

    function VarIsNothing(V: OleVariant): Boolean;
begin
  Result :=
    (TVarData(V).VType = varDispatch)
    and
    (TVarData(V).VDispatch = nil);
end;

// ...

if (VarIsNothing(MyRange)) then

    Mise à jour

    Apparemment, les sources de l'RTL unité Variants.pas ont changé entre Delphi 5 et 2007. Selon @mghie (voir les commentaires), la fonction VarIsEmpty aurait fait la job en D5. Cependant, dans D2007, cela ne semble pas être le cas aujourd'hui, de sorte que vous aurez probablement besoin de la fonction ci-dessus à nouveau.

    Notez également que VBA Nothing est probablement tout à fait un cas particulier; je ne pense pas que l'on rencontre trop souvent avec l'automatisation.

    • En cas de remplacement "(MyRange = Null) " avec "VarIsNull(MyRange) ou VarIsEmpty(MyRange)" les œuvres que j'avais dites poliment accepter de Craig réponse. Pas besoin d'écrire des fonctions personnalisées pour des choses qui est déjà dans la bibliothèque et documenté.
    • Je suis sûr que ceux qui ne pas travailler avec ce fichus Nothing valeur 🙂
    • Eh bien, jetez un oeil au code source de VarIsEmpty() - c'est un sur-ensemble de votre code, au moins dans le Delphi 5 version que je suis en train de regarder en ce moment...
    • Curieux... Mon D2007 sources disent Result := FindVarData(V)^.VType = varEmpty;, qui est certainement quelque chose d'autre... Est-il?
    • En effet. Delphi 5 fait ce que votre fonction, mais en plus des contrôles pour varEmpty et varUnknown. Pourtant, je doute qu'un tel changement aurait été faite si elle a entraîné un changement de comportement. Ou serait-ce moi qui suis trop utopique?
    • Oui, c'est étrange, mais vrai. Cette ligne dans mon commentaire précédent est le que l'un dans l' VarIsEmpty fonction dans ma D2007 sources de Variantes.pas.

    InformationsquelleAutor
  3. 2

    Ne VarIsEmpty (différent de VarIsNull) de ne pas faire ce que vous voulez?

    • Peut-être problématique, c'est que VarIsEmpty ne gère pas varErrors retourné par Excel.
    • Non, je suis sûr que Empty est quelque chose de tout à fait différent de Nothing --- ce dernier ne semble pas avoir aucun équivalent à Delphes. (J'ai peut-être tort, bien sûr, mais je suis sûr que j'ai vérifié cette). Merci, tout de même!
    InformationsquelleAutor