Überprüfung für den Variant-Wert „Nothing“

Question

Das ist etwas, was ich in den letzten Jahr lief, und scheint so wie ein guter Ort, um es zu dokumentieren :)

Q: Wenn Excel zu automatisieren (/ Word/...) aus Delphi, wie kann ich überprüfen, ob eine Excel-Funktion die Variante Nothing (wie in VBA genannt) zurückgibt?

Answer 1

Die VarIsClear-Funktion umfasst Ihre Situation, in der der Typ varDispatch ist und der Wert ist. Es enthält auch leere und "unbekannte" Werte sowie benutzerdefinierte Variantentypen. Ich sehe es in meiner Quelle Delphi 2005; Ich weiß nicht, wie viel früher es enthalten war.

Answer 2

Merkwürdiger, VBA Nothing ist nicht die gleiche wie Unassigned, Null oder Empty, so dass Sie nicht, zum Beispiel verwenden können:

// 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!'); 

Stattdessen verwenden diese Funktion:

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

// ... 

if (VarIsNothing(MyRange)) then 

---

Aktualisieren

Anscheinend haben sich die Quellen der RTL-Einheit Variants.pas zwischen Delphi 5 und 2007 geändert. Laut @mghie (siehe Kommentare) hätte die Funktion VarIsEmpty die Aufgabe in D5 erledigt. In D2007 scheint dies jedoch nicht mehr der Fall zu sein, so dass Sie die obige Funktion wahrscheinlich erneut benötigen.

Beachten Sie auch, dass VBA Nothing ist wahrscheinlich ein ganz besonderer Fall; Ich denke nicht, dass man es zu oft mit Automatisierung konfrontiert.

Answer 3

Does VarIsEmpty (anders als VarIsNull) nicht tun, was Sie wollen?