下列代码错误，海天子进来看看 ！

Question

var
wapp: OleVariant;
Doc: Variant;
begin
  if OpenDialog1.Execute then
  begin
    wapp:= CreateOleObject('Word.Application');
    Doc :=OpenDialog1.FileName;
    Memo1.Text:=Doc.Content.Text;
    Doc.Close;
  end;
end;他提示：variant does not  reference an  automation object是为什么呢？

Answer 1

wapp:= CreateOleObject('Word.Application');这一句没有什么问题，后面你这几句代码写得狠奇怪耶。    Doc :=OpenDialog1.FileName;//一个字符串赋给DOC
    Memo1.Text:=Doc.Content.Text;//DOC现在存的是字符串，怎么这样用它？
    Doc.Close;

Answer 2

doc 没有和OleObject绑定，你的CreateOleObject是赋值给Wapp

Answer 3

Doc :=OpenDialog1.FileName;//一个字符串赋给DOC
    Memo1.lines.add(Doc.Content.Text);//DOC现在存的是字符串，怎么这样用它？
    Doc.Close;