Question

delphi中如何将内容保存到Word中？我没有使用数据库

本人现在编辑一个软件，想通过Delphi的serves面板中的Word相关组件来将数据保存到Word文档中，但是现在不会编辑，恳请高手指点。
wordapplication1.Connect ; wordapplication1.Visible:=True; Wordapplication1.Documents.add(emptyparam,emptyparam,emptyparam, emptyparam); WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
这是我看到的一段代码 可是当我用的时候 会提示错误，我就不理解了
提示说emptyparam、ItemIndex没有定义 这是什么问题

Answer 1

写个函数给您，其中myw就是您的WordApplication组件，mydoc就是您的WordDocument组件
procedure CreateNewWordDoc(myw: TWordApplication; mydoc: TWordDocument);overload;
var p: OleVariant;
begin
myw.Disconnect;
p := EmptyParam;
myw.connect();
myw.Documents.Add(p, p, p, p);
mydoc.ConnectTo(myw.ActiveDocument);
myw.Visible:=true;
end;

追问

说实话 看不懂 那既然是函数 怎么调用呢？

追答

建个窗体，放一个TwordApplication，命名为WordApp,再放一个TWordDocument,命名为WordDoc,放置一个按钮，在点击事件中写
CreateNewWordDoc(WordApp,WordDoc);

追问

再问一下 我做的内容中有表格，就是用stringgrid做的表格 怎么将里面的内容页复制到word中呢
麻烦了 我是初学者

追答

接着写
wordDoc.range.insertAfter('测试值1'+#13);
wordDoc.range.insertAfter('测试值2'+#13);
wordDoc.range.insertAfter('测试值3'+#13);
仿照这个写就OK了