delphi - OleVariant と UnAssigned を比較するときの無効なバリアント操作

Question

これは私のコードです:

**if** FWordApp = UnAssigned **then**
    FWordApp := CreateOleObject('Word.Application') ;
Result := FWordApp;

上記は、OleVariant 型のプロパティの GETter にあります。

最初は問題なく、TRUE と Unassigned を比較します。ただし、2 回目は同じではありません。UnAssigned と比較すると、無効なバリアント操作エラーが発生します。

Answer 1

エラー メッセージがUnassigned示すように、OleVariant. それは違法な比較です。

テストでは代わりに次を使用する必要がありますVarIsEmpty。

if VarIsEmpty(FWordApp) then
  FWordApp := CreateOleObject('Word.Application');