关于word中OleVariant的赋值问题

Question

定义如下：
  VAR2,VAR3,VAR4: OleVariant;
如果设
 VAR2:=emptyparam; 
  VAR3:='test';  
则 WordDoc.Application.Selection.Find.Execute(VAR3,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2)
 可以找到指定的字符串。但设置 VAR3:=Query1.Fields.Fields[0].AsString后，却无法找到对应的字符串，Query1.Fields.Fields[0].AsString的内容也为‘test’。
有人知道原因吗？ 谢谢牛人指点！！！

Answer 1

 VAR3:=Query1.Fields.Fields[0].Value可以的

Answer 2

VAR3:=Query1.Fields.Fields[0].Value;你要確定  VAR3:=Query1.Fields.Fields[0] 有值。

Answer 3

用TWordApplication wordApp.Selection.Find.Text := Query1.Fields.Fields[0].AsString; 
wordApp.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam) 上面是我在网上找到的,说是可以解决