怎样把从DBGRID中提取出的数据用WORD文档打开？

Question

我没有找到更好的事件，就用了这个，有没有单击某一条记录来执行我以下的代码的事件？
procedure TFormMain.wwDBGrid1DblClick(Sender: TObject);
begin
    edit1.Text :=wwDBGrid1.DataSource.DataSet.FieldByName('DO_INFO').AsString;
end;我想做的是把提取出的'DO_INFO'内容用WORD文档打开而不是放到edit1.Text 里，就是单击一条记录时WORD打开，'DO_INFO'里的内容就出现了。有点象下载文档似的！谢谢赐教！

Answer 1

不知道临时保存一个txt文件，然后调用word的方式能不能满足你的要求。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Template, NewTemplate,DocType,DocVisible : OleVariant;
begin
  memo1.SelectAll;
  memo1.CopyToClipboard;  Template := EmptyParam;
  NewTemplate := EmptyParam;
  DocType := EmptyParam;
  DocVisible := EmptyParam;  WordApplication1.Connect; // WordApp : TWordApplication
  WordApplication1.Visible := True;
  WordApplication1.Documents.Add(Template,NewTemplate,DocType,DocVisible);
  WordApplication1.Selection.Paste;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  Template, NewTemplate,DocType,DocVisible : OleVariant;
begin
  Template := EmptyParam;
  NewTemplate := EmptyParam;
  DocType := EmptyParam;
  DocVisible := EmptyParam;
  WordApplication1.Connect; // WordApp : TWordApplication
  WordApplication1.Visible := True;
  worddocument1.range.insertafter('这里是要插入的字符串');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  wordapplication1.quit;//关闭word文件
  wordapplication1.disconnect;
end;