一名Delphi程序员的开发习惯
一．建立工程目录
首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录中创建以下各个目录：
<Doc>：用来存放该项目相关的开发文档（需求说明，概要设计，详细设计等等等等）；
<Source>：用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.Dfm”等文件；
<Dcu>：该目录中存放”.Dcu”文件，将’.Pas’与’.Dcu’文件分开存放只是为了让Source目录的内容更加清楚一些；
<Bin>：存放工程的输出文件，比如”.Exe”,”.Dll”或者”.Ocx”等等；
<Log>：用来存放日志文件；通常在这个目录中我会放一个”<项目名称>程序员日志.Txt”文件。
<Images>：当然是存放工程中用到的图片的目录了。一般情况下，这个目录是少不了的。假如还用到其他资源，那么也一样建立各自的目录，比如Wav，比如Avi等等。
二．设置工程选项
在Delphi中创建一个新的工程，将此工程保存到Source目录中，同时：
a. 选一个耐看的，与项目有些联系的图标作为这个工程的图标。当然，这个图标可能只是临时用用的，但是总要比Delphi默认的那个难看的要好才行，要不然，怎么对得起自己？
b.将Project Options -> Directories/Conditionals页面中的Output Directory设置为Bin目录；
c.将Unit output Directory设置为Dcu目录。
三．添加常量单元
添加一个新的Unit，另存为“unt<工程名> Consts.Pas”，用来保存工程中用到的常量。
四．有关窗体（Form）及单元(Unit)
按照匈牙利命名法则给Form命名，则一个用来登录的窗体可以命名为’FrmLogin’，而其单元名可以为’untLogin’。通常，两个对应的Form和Unit的名称在除去’Frm’或’unt’的缩写后应当保持一致。
在Unit的头部添加本单元的注释，注释的格式可以参照Delphi的源码，但是至少应当包含以下几项：功能描述；作者；版权；创建时间；最后修改时间；修改历史等等。
将新创建好的Form的Caption设置为该Form类的名称，而不是使用Delphi默认的。比如，
相关文档：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
&n ......
Delphi操作XML是很方便的，主要有两种方法；
1.用TClientDataSet操作XML；TClientDataSet是个好东西，用它操作XML是很简单的事，不过缺点是只能操作固定格式的 XML，它适合操作表结构的数据，如果你需要把数据表导出成XML那用TClientDataSet是个好主意，比如下面是一个数据集导出成XML的� ......
有时候我们需要可以高速检索的列表，自然会想到哈希表，平时我们可能想到用IniFiles单元里的THashedStringList，但 THashedStringList每次新增一个Item后都需要刷新一遍，数据多了可能会有点慢，感觉不太好，而TStringHash则只能存 Integer型的(虽然我们可以把别的东西强制转成整型存进去，但感觉不太好)。TStringHash已经� ......
要实现这一功能，首先要用到ActiveX控件中的TShockwaveFlash控件。
首先让我们来将TShockwaveFlash控件加入到Delphi的组件面板中（没有装Flash的朋友可以从网上下载一个Flash8.ocx文件来进行安装）
1.打开Delphi（本人用的是Delphi7.0）点击菜单中的Component->Import ActiveX Control...
2.在弹出的窗口中的Import ......
1．调用API函数
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://指定源文件名
AssignFile(f2,ToFileName); file://指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise ......
