1.所需的三个控件： ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接，请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间，所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷 名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如：SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格： ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数， ColNum为列数 (2)插入数据： ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来，注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);

1.可以对文本文件精确查找。 2.不同区域会用不同颜色标注。（源码）

1.QQ 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责！ 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用！

1. 为了提高电脑运行速度，一般我们都把SQL Server服务关闭，当使用时再开启。2. 而一个一个的开启、停止SQL Server服务着实费劲，多亏了这两个文件，可以一键开启、停止SQL Server服务，太省时省力了。

1. 下载最新"Toad for SQL Server": http://www.download3k.com/Business-Finance/Database-Management/Download-Quest-Software-Toad-for-SQL-Server.html 2. 安装 "Toad for SQL Server". 3. 替换 "ToadPro.dll". 4. 运行"Toad for SQL Server"，在help-〉licensing输入 0000000000000000000000000，可以得到一万天的试用期

V2.0【2015-05】 1、新增 WORD 模板 功能； 2、新增 WORD 文档的自动目录功能； 3、修复 偶然出现 连接 My Sql 失败的 BUG ； 4、修复 偶然出现 字段排序混乱的 BUG； 5、修复 由于表的描述中含有 特殊字符 导致的 生成 CHM 格式文档卡死的BUG; V1.0【2014-07】 数据字典生成工具，用于生成 数据库表 及字段说明，主要特征如下： 1、支持的数据库类型：SQL Server 2005+,My SQL,Oracle; 2、支持的文档类型：HTML,CHM,WORD; 3、基于Open XML ,不用安装 MS Office,WPS 也可以生产 DOCX 格式的文件；

Delphi实现excel和SQLserver数据的导入导出示例程序源代码

Red Gate SQLToolbelt提供了针对sql server的工具集。 主要推荐使用：Sql Prompt和Sql doc Sql Prompt:智能提示sql语句等等 Sql doc：生成数据库文档页面

SQL server AlwaysON配置的新手教程,很详细的doc文档,有附步骤图. 比较适合新手,按照此文档配置,不容易出错. https://blog.csdn.net/chenhui389/article/details/107904474

修改系统时间_Delphi修改windows7系统时间的开源源码，按照提示输入新的时间，点击“修改”按钮后即可改变windows当前时间，主要是学习delphi7和windows之间的时间接口，如何操作等。相关代码如下： 　　For i := 0 to Form1.ComponentCount -1 do 　　begin 　　 if ComponentS[i] is TEdit then 　　 begin 　　 if TEdit(Components[i]).Text = '' then 　　 begin 　　 Application.MessageBox('请将日期输入完整！','提示',64); 　　 Exit; 　　 end; 　　 end; 　　end; 　　SetDate.wYear := StrToInt(Edit1.Text); 　　SetDate.wMonth := StrToInt(Edit2.Text); 　　SetDate.wDay := StrToInt(Edit3.Text); 　　SetDate.wHour := 5; 　　SetDate.wMinute := 0; 　　SetDate.wSecond := 0; 　　SetSystemTime(SetDate); 　　……