一名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默认的。比如，
相关文档：
公司的餐饮系统出品的助记码，还没实现自动从出品名称获取汉字拼音首字母。
所以在网上找了三种解决方法，
一种是kaguo 的使用常用汉字拼音查找方法，这种代码十分简单，实现方便，但是这种代码仅仅是一级字库，只支持三千零几个字的。
//获取中文字串的声母� ......
1.防止刷新时闪烁的终极解决办法
{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }
Perform($000B, 0, 0); //锁屏幕 防止闪烁
// 做一些会发生严重闪烁的事情..
//解锁屏幕并重画
Perform($000B, 1, 0);
& ......
显示一个GIF动画
procedure ShowGIF( GIFFileName : String );
var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData := false;{不发送数据} Heads := '';{Header信息为空} Flags := 0;{Flags设为0} ......
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 ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
