下载文档原格式
(转 Delphi7的开发调试技巧及快捷键Delphi 开发的调试技巧1、设置调试选项Delphi 主菜单。
【 Project 】 ->【 Options 】 , 或单击工程管理器中的【 Project Options 】按钮。
显示 Project Options,选择 Complier<1>选中 Debug Information :把调试信息嵌入到 DCU 单元文件,会加大编译后的DCU 文件,但不会影响最后生成的 exe 的大小和执行速度。
同时激活【 Search 】菜单中的【 Find Error 】命令。
当文件中包含调试信息并得到一个运行时错误 (run-time error, 记录下 Delphi 提供的 16进制地址,在【 Search 】->【 Find Error 】中输入, Delphi 将重新编译程序,并停留在产生错误的命令行。
<2>Local symbols:决定调试器能否看到在 Implementation 中定义的局部变量。
<3>Reference infoj选项 /Definition Only选项是否产生应用程序中对象标识符的引用信息。
信息和对象代码存在 dcu 文件中, 可以使用对象浏览器查看。
如果 Definition Only 选项同时选中,编译器将生成标识符定义位置的信息,能够激活对象浏览器的 Refenrence 页。
如果不选, Dcu 文件更小。
编辑器命令{$D} Debug Information{$L} Local Information{$Y} Symbol Information{$C} Assertions2、使用内部调试器<1> 命令行参数在【 Run 】->【 Parameters 】中设置<2>断点条件断点使源代码断点只有在满足某个条件时才有效。
在【 View 】->[Debug windows]->【 BreakPoints 】打开“BreakPoint List”对话框, 右击断点,从弹出菜单中选择属性。
delphi 教程在此篇Delphi教程中，我们将介绍一些基本的Delphi编程知识。
Delphi是一种可视化的集成开发环境，用于创建Windows应用程序。
它支持面向对象编程，具有强大的图形用户界面设计工具和简化的应用程序开发工具。
首先，我们需要了解Delphi的安装和设置过程。
您可以从Embarcadero官网下载Delphi安装程序。
安装完成后，您可以根据需要配置Delphi的界面和选项。
接下来，让我们了解Delphi中的一些基本概念。
Delphi使用对象、类和单位的概念来组织代码。
对象是程序的实体，类是对象的模板，单位是一种将相关类和对象组织在一起的方式。
Delphi中的代码以过程和函数的形式组织。
过程是一段代码块，用于执行特定的任务，而函数是返回一个值的过程。
您可以使用Delphi的集成开发环境编写和编辑代码。
Delphi支持多种数据类型，包括整数、浮点数、字符和字符串。
您可以使用这些数据类型创建变量，并对其进行操作。
在Delphi中，您可以使用条件语句（如if语句和case语句）和循环语句（如for循环和while循环）来控制程序的执行流程。
这样，您可以根据条件执行不同的动作，或者重复执行一段代码。
Delphi还提供了丰富的图形用户界面设计工具。
您可以使用这些工具创建窗体和控件，并将它们放置在窗体上。
您可以使用属性编辑器更改控件的属性，并为控件添加事件处理程序，以响应用户的操作。
最后，让我们谈谈Delphi中的调试和错误处理。
Delphi提供了一些调试工具，可以帮助您查找和修复程序中的错误。
您可以使用调试器跟踪程序的执行过程，并在运行时查看变量的值。
您还可以使用异常处理机制捕捉和处理程序中的异常。
这就是本篇Delphi教程的简要概述。
通过学习这些基本概念，您将能够开始使用Delphi开发Windows应用程序。
希望这篇教程对您有所帮助！。
![delphi操纵word（完整版）[精华]](https://img.taocdn.com/s1/m/a1477735bdd126fff705cc1755270722192e598e.png)
一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)Template：使用模板的名称，NewTemplate：新建文档的类型，True表示为模板，False表示为文档DocumentType：文档类型，默认为空白文档Visible：打捞的窗口是否可见举例：Doc_Handle:=Word_Ole.Documents.Add(Template:='C:\Temlate.dot',NewTemplate:=False );三、Delphi程序打开Word文稿格式：WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,Format,Encoding,Visible)FileName：文档名（包含路径）Confirmconversions：是否显示文件转换对话框ReadOnly：是否以只读方式打开文档AddToRecentFiles：是否将文件添加到"文件"菜单底部的最近使用文件列表中PassWordDocument：打开此文档时所需要的密码PasswordTemplate：打开此模板时所需要的密码Revert：如果文档已经，是否重新打开文档WritePasswordDocument：保存对文档更改时所需要的密码WritePasswordTemplate：保存对模板进行更改时所需要的密码Format：打开文档时所需使用的文件转换器Encoding：所使用的文档代码页Visible：打开文档的窗口是否可见举例：Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,AddToRecentFiles:=False);四、Delphi程序保存Word文稿格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,AddToRecentFiles, WritePassword, ReadOnlyRecommended,EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)FileName：文件名。
delphi常用技巧
Delphi是一种强大的编程语言，有许多有用的技巧和功能可以帮助提高开发效率。
以下是一些Delphi常用的技巧：
1. 使用快捷键：Delphi支持许多快捷键，使用这些快捷键可以快速完成常见的任务，如Ctrl+C用于复制，Ctrl+V用于粘贴等。
2. 快速查找和替换：使用Ctrl+Shift+F可以打开查找和替换对话框，输入要查找的文本，然后输入要替换的文本，最后点击“全部替换”即可。
3. 调试技巧：在调试时，可以使用断点、观察表达式、单步执行等技巧来检查程序的运行情况。
4. 自定义控件：Delphi支持自定义控件，可以创建自己的控件来满足特定的需求。
5. 使用第三方控件：Delphi有许多第三方控件可用，这些控件可以提供更多的功能和更好的用户体验。
6. 优化代码：使用一些技巧可以优化代码的运行速度和可读性，例如使用局部变量、避免不必要的对象创建等。
7. 使用异常处理：在Delphi中，可以使用异常处理来处理运行时错误和异常情况。
8. 使用多线程：Delphi支持多线程编程，可以使用多线程来提高程序的性能和响应速度。
9. 使用数据库：Delphi支持多种数据库连接方式，可以使用数据库来存储和检索数据。
10. 使用第三方库：Delphi有许多第三方库可用，这些库可以提供更多的功能和更好的性能。
希望这些技巧可以帮助你更好地使用Delphi进行开发。
DELPHI编程技巧一一、Delphi集成环境与代码调试A 修改Delphi的系统信息默认的Delphi消息、警告和例外描述都是英文的，将这些内容翻译成另一种语言或修改它们使其适合你的需要的最简单方法是编辑资源文件并改变相应的字符串，这些文件位于BIN 目录。
主要资源文件有：SysUtils单元的信息（文件没有找到、转换错误信息等）在sysutils.res 中，数据库错误信息在dbconsts.res中，VCL信息在consts.res中。
注意一些字符串使用格式字符，如%s或%d，来产生最终的字符串，在这种情况下，应将这些字符保留在适当的位置。
B 如何清除无用代码Delphi提供了自动清除源代码中无用代码的强大功能，一般来说，当你保存文件时，Delphi 自动将源代码中空的类方法删除，保证了源代码的清洁。
在没有编译和保存文件的前提下，也可以清除无用代码，方法是：在Delphi 3/4中单击“File”*癝ave As...”菜单命令（在Delphi 1/2中单击“File”*“Save File As...”菜单命令），打开“Save As...”对话窗口，单击“取消”按钮即可。
C 在Delphi 4集成环境中不使用浮动功能你无疑知道Delphi 4集成环境支持大多数窗口的浮动功能。
但是，有时你不想让一个窗口具有浮动功能。
浮动窗口在需要时，十分有用，但在不需要时，也十分恼人。
有两种方法可以改变一个窗口的浮动属性。
第一种方法是：每个可浮动窗口具有一个本地菜单项目---Dockable，如果你不希望一个特定的窗口具有浮动功能，简单地用鼠标右键单击窗口，选空Dockable菜单项目。
这个窗口的浮动功能就关闭了，直到你再选中Dockable项目为止。
这一技术可以防止特定的窗口可停靠。
但有时，你仅仅希望暂时关闭浮动功能，这时，只需要按下<Ctrl>键，再拖动窗口。
D 在工具菜单中添加项目在Delphi集成环境中按F1键可以打开多数Delphi帮助标题，这种方法可以快速打开相关标题的帮助窗口。
delphi十个小技巧1、判断一个字符串是否包含于另外一个字符串的方法例如：if pos('ab','abcd')<>0 thenmessagedlg('ab是包含于abcd',mtConfirmation,[mbYes, mbNo],0);pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.2、如何使窗口全屏，类似游戏一样，而不是窗口的最大化!(1)BorderStyle 为 bsNone(2)Windowstate 为 wsMaximized(3) 退出时可加一个按钮之类的，写上 close 即可退出。
3、数字格式化输出format('%8.2f',[123.456])，返回字符串'123.46'。
4、播放一个wav文件usemmsystem;SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC);5、InputBox,InputQuery和ShowMessage函数的威力usesdialogs;vars,s1:string;b:boolean;begins:=trim(Inputbox('NewPassword','Password','masterkey'));b:=s<>'';s1:=s;if b then b:=InputQuery('ConfirmPassword','Password',s1);if not b or (s1<>s) thenShowMessage('Password Failed');end;6、几个有关子目录的操作的过程MkDir(str); ChDir(str); GetDir(DriveID,str); SetCurrentDir(str);IOResult --上面几个过程调用成功即返回0值7、将一个可视控件变成图形类型例如将一个带背景的LABEL变成一个TIMAGE图片类型，可以这样做：image1.width:=label1.width;image1.height:=label1.height;label1.perform(WM_PAINT,image1.Canvas.Handle,0);8、如何得到字符的ASCII值得到字符的ASCII值，可以用如下语句：var: a:integer;string1:string;beginstring1:='ABC';a:=byte(string[1]); {此时就得到'A'的ASCII值}end;9、动态更新DBGrid的颜色例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。
Delphi常用技巧在网上行走时，经常会看到弹出的桌面小窗体，有时做广告，有时向你致以节日的问候；人们称其为桌面小精灵；有的桌面小精灵会自动移动，有的固定在屏幕的某一角落，动画闪烁，煞是迷人。
本人用Delphi 制作了一款桌面小精灵，愿与大家共享。
桌面小精灵的实现功能：当运行时，在屏幕的左下角显示一无边框、无标题栏的小窗体，并自动向屏幕的右上角移动，窗体上的小精灵——可爱的马先生，一会跃起，高呼“马到成功！”，一会含情脉脉地向你招手“再见”；同时，还不断地闪烁显示当前时间，时刻提醒你抓紧时间呦！当你嫌它碍事时，你可以按下鼠标左键，将它拖到任意位置。
如果你厌烦它不停移动，你可以双击鼠标左键，它会老老实实地呆在原地不动，只要你用鼠标轻轻一点，它又会高高兴兴地上路，当你单击“再见”时，桌面小精灵就会消失，你不想一试身手吗？请跟我来！运行后效果图生成一窗体，设置窗体属性如下：Name属性为Form1，BorderStyle属性为bsNone，FormStyle属性为StyOnTop，Height属性值240，Width属性值209。
窗体上分别添加组件，设置属性如下：(1)添加两个Image组件，Name属性分别设为Image1、Image2，Align属性均设为alClient (以使Image 组件充满整个窗体)，Image1的Enabled为False，Image2的Enabled为True，然后通过Picture属性为Image1、Image2添加图片(适合的图片格式：BMP、JPG )。
(2)在Image上再添加两个Timer组件，Name属性分别为Timer1、Timer2，Enabled属性均为True，Interval 属性均为1000毫秒。
(3)在Image上再添加一个Label组件，Name：=Label1，Caption：=“马到成功！”，Enabled：=True，Font属性为“华文行楷，粗斜体，三号字，红色”(根据你的图片设置适当的字体、字号、字体颜色)。
◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件：xpanel:=x;ypanel:=y;PANEL的DragOver事件：xpanel:=x;ypanel:=y;LABEL的MouseMove事件：xlabel:=x;ylabel:=y;LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;◇[DELPHI]取得WINDOWS目录uses shellapi;var windir:array[0..255] of char;getwindowsdirectory(windir,sizeof(windir));或者从注册表中读取，位置：HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersionSystemRoot键，取得如：C:\WINDOWS◇[DELPHI]在FORM或其他容器上画线var x,y:array [0..50] of integer;canvas.pen.color:=clred;canvas.pen.style:=psDash;form1.canvas.moveto(trunc(x[i]),trunc(y[i]));form1.canvas.lineto(trunc(x[j]),trunc(y[j]));◇[DELPHI]字符串列表使用var tips:tstringlist;tips:=tstringlist.create;tips.loadfromfile('filename.txt');edit1.text:=tips[0];tips.add('last line addition string');tips.insert(1,'insert string at NO 2 line');tips.savetofile('newfile.txt');tips.free;◇[DELPHI]简单的剪贴板操作richedit1.selectall;richedit1.copytoclipboard;richedit1.cuttoclipboard;edit1.pastefromclipboard;◇[DELPHI]关于文件、目录操作Chdir('c:\abcdir');转到目录Mkdir('dirname');建立目录Rmdir('dirname');删除目录GetCurrentDir;//取当前目录名，无'\'Getdir(0,s);//取工作目录名s:='c:\abcdir';Deletfile('abc.txt');//删除文件Renamefile('old.txt','new.txt');//文件更名ExtractFilename(filelistbox1.filename);//取文件名ExtractFileExt(filelistbox1.filename);//取文件后缀◇[DELPHI]处理文件属性attr:=filegetattr(filelistbox1.filename);if (attr and faReadonly)=faReadonly then ... //只读if (attr and faSysfile)=faSysfile then ... //系统if (attr and faArchive)=faArchive then ... //存档if (attr and faHidden)=faHidden then ... //隐藏◇[DELPHI]执行程序外文件WINEXEC//调用可执行文件winexec(' /c copy *.* c:\',SW_Normal);winexec('start abc.txt');ShellExecute或ShellExecuteEx//启动文件关联程序function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle; ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);ExecuteFile('','','',0);ExecuteFile('mailto:tingweb@','','',0);◇[DELPHI]取得系统运行的进程名var hCurrentWindow:HWnd;szText:array[0..254] of char;beginhCurrentWindow:=Getwindow(handle,GW_HWndFrist);while hCurrentWindow <> 0 dobeginif Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);end;end;◇[DELPHI]关于汇编的嵌入Asm End;可以任意修改EAX、ECX、EDX；不能修改ESI、EDI、ESP、EBP、EBX。
