Delphi 打开已有的word文档，如果你的电脑上安装有Word，则会通过Word打开用户选择的文档。其实就是在Delphi窗口中选择你要打开的Word文档，用户确定后，Delphi会调用安装好的word打开该文件，有兴趣参考以下代码： 　　var 　　 MSWord:olevariant; 　　begin 　　 MSWord := CreateOLEObject('Word.Application'); 　　 MSWord.Documents.Open (f,false); 　　 MSWord.Visible := 1; 　　end;

Delphi开发的Word文档批量处理程序，可批量Word文字替换，批量字体修改、批量插入图片，批量合并Word文档、删除指定页等功能，还可以批量新建文档。关于本程序的使用说明： 　　1、系统将根据样版文件复制成多个文件； 　　2、新文件的名称可以从软件系统里提取，创建前需要进入其它功能系统后台数据，进行分别创建。 　　3、非英文序号默认为二位序号。 　　注：本Delphi源码在开发时引入有第三方控件。

复制文件的Delphi代码示例，用自定义的窗体来实现传统的复制文件功能，主要是展示在Delphi下如何定义复制文件的函数，打基础的代码。复制的核心代码： 　　if edtSFile.Text <> '' then 　　 begin 　　 AssignFile(FormF,edtSFile.Text); 　　 Reset(FormF,1); 　　 if edtTFile.Text <> '' then 　　 begin 　　 AssignFile(ToF,edtTFile.Text); 　　 ReWrite(ToF,1); 　　 lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成！'; 　　 repeat 　　 BlockRead(FormF,Buf,SizeOf(BUf),NumRead); 　　 BlockWrite(ToF,Buf,NumRead,NumWritten); 　　 until (NumRead = 0) or (NumWritten <> NumRead); 　　 CloseFile(FormF); 　　 CloseFile(ToF); 　　 ShowMessage('文件复制完成！'); 　　 end else ShowMessage('源文件有问题！'); 　　 end else ShowMessage('目标文件有问题！'); 　　end;

Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码： 　　procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent); 　　var 　　 nProps, i: Integer; 　　 PropList: PPropList; 　　 Value: Variant; 　　 newNode: IXmlNode; 　　begin 　　 nProps := GetTypeData (Comp.ClassInfo)^.PropCount; 　　 GetMem (PropList, nProps * SizeOf(Pointer)); 　　 try 　　 GetPropInfos (Comp.ClassInfo, PropList); 　　 for i := 0 to nProps - 1 do 　　 begin 　　 Value := GetPropValue (Comp, PropList [i].Name); 　　 NewNode := iNode.AddChild(PropList [i].Name); 　　 NewNode.Text := Value; 　　 if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then 　　 if TObject (Integer(Value)) is TComponent then 　　 NewNode.Text := TComponent (Integer(Value)).Name 　　 else 　　 ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent); 　　 end; 　　 finally 　　 FreeMem (PropList); 　　 end; 　　end;