这是我的代码:
**if** FWordApp = UnAssigned **then**
FWordApp := CreateOleObject('Word.Application') ;
Result := FWordApp;
以上内容位于 GETter 中,用于 OleVariant 类型的属性。
第一次,它很好,将 TRUE 与 Unassigned 进行比较。但是,第二次情况并非如此,与 UnAssigned 进行比较会给我一个 Invalid Variant Operation 错误。