function ValidatePID(const APID: string): string;
{内部函数,取身份证号校验位,最后一位,对18位有效}
function GetVerifyBit(sIdentityNum: string): Char;
var
    nNum: Integer;
begin
    Result := #0;
    nNum := StrToInt(sIdentityNum[1]) * 7 +
            StrToInt(sIdentityNum[2]) * 9 +
            StrToInt(sIdentityNum[3]) * 10 +
            StrToInt(sIdentityNum[4]) * 5 +
            StrToInt(sIdentityNum[5]) * 8 +
            StrToInt(sIdentityNum[6]) * 4 +
            StrToInt(sIdentityNum[7]) * 2 +
            StrToInt(sIdentityNum[8]) * 1 +
&n ......

   
  我一开始以为，将表单设置为隐藏，可以在表单创建事件中即FormCreate(Sender:TObject)去设置
  因此， 我在这个procedure TForm.FormCreate(Sender:TObject)中，
   想用一下两种方式实现
   即：
   调用      from.Hide
   或设置   form.Visible:=false;
   然而， 令人沮丧的是，窗口表单还是显示的，一点变化都没有，
   更令人沮丧发狂的是，网上查资料，都说这么设置就可以
   斯诚痛哉
   在查资料
   终于知道了问题所在：>
   原来， 在FormCreate事件中设置可见性是无效的，必须另写一个事件，比如按钮事件，在这个事件里，再设置Hide或visible 就可以了
   估计原因：
   FormCreate 是对表单各项进行初始化，此时表单还未建立，所以还不能对表单属性进行设置（虽然编译器不提示错误信息）
   
  ......

函数一：
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;  
var 
    zAppName: array[0..512] of Char;  
    zCurDir: array[0..255] of Char;  
    WorkDir: string;  
    StartupInfo: TStartupInfo;  
    ProcessInfo: TProcessInformation;  
begin 
    try 
      StrPCopy(zAppName, FileName);  
      GetDir(0, WorkDir);  
      StrPCopy(zCurDir, WorkDir);  
      FillChar(StartupInfo, SizeOf(StartupInfo), #0);  
    ......

Delphi正则表达式学习，参考CSDN万一老师的BLOG、CSDN、网络资料以及带源码的TPerlRegEx，在此注明，以后不再说明，在些感谢Google老师和百度老师
安装：
 下载地址：http://download.csdn.net/source/1668436
1、安装.dpk文件，在Libary中添加TPerlRegEx单元存放路径
2、运行程序前复制pcrelib.dll到C:\WINDOWS下
小试：
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create(nil); //建立
reg.Subject := 'GoodBoy is You!'; //这是要替换的源字符串
reg.RegEx := 'You'; //这是表达式, 在这里是准备替换掉的子串
reg.Replacement := 'Me'; //要替换成的新串
reg.ReplaceAll; //执行全部替换
ShowMessage(reg.Subject); //返回替换结果: GoodBoy is Me
FreeAndNil(reg); //或 reg.Free
end;
//License Version 1.1
//Delphi 7.0
procedure TForm1.btn1Click(Sender: TObject);
var
Reg : TPerlRegEx;
begin
Reg := TPerlRegEx.Cr ......

作为delphi的铁杆，在正式Delphi2010推出后，我当然也要尝尝新鲜，用电驴下来以后安装。呵呵二十多分钟就搞定了，启动也特快，简单使用一下，棒棒！！看来Delphi（太阳神）又回来了，如是我决定抛弃delphi2007，用这个新家伙。我所用的第三方组件主要是RemObjects和reportbuilder，reportbuilder还没有找到安装forD2009 Full source 或者forD2010 的，如果那位大哥有reportbuilder 11.03 full sourc 或者reportbuilder 11.06 请告诉我哦。这里先谈谈我安装RemObjects的经验。
1、如果你安装了RemObjects5.025先卸载。
2、下载RemObjects 6.0.39.777 full source （在CSDN里找） 和cracked
3、安装SDK ,HY,DA,完成后用cracked包里的文件覆盖安装文件夹里相应的文件。
4、打开RemObjects SDK for Delphi\Source\eDefines.inc文件
修改：
{ defines for Delphi 2009 }
  {$IFDEF VER200}
为：
{ defines for Delphi 2009 }
  {$IFDEF VER210}
5、复制Everwood\Source\*.*到RemObjects SDK for Delphi\Source\
4、打开Delphi2010 打开
RemObjects SDK for Delphi\Source\BuildPackages_D12.groupproj
打开RemObjects_IDE_D12.bpk
REMOVE RemObjects_Eve ......

此文适合Delphi新手阅读，特别是连接数据库方面还一懂半懂甚至根本不懂的新手；
     --------------------------但总体显得有点乱-------------------------
     本文章以Delphi 7和SQL Server 2000为例，控件名均为系统默认，如Unit1,DataModule1,Edit1,ADOCommand1,ADODataSet1,ADOConnection1,DataSource1等等。
     初初接触Delphi时，想要连接数据库，但面对一大堆数据库类控件，无所适从，既不知该用哪个/些控件，也不知具体怎么连接数据库！
     经过一段时间的“摸爬滚打”，算是初步摸索到了常用的连接方法。其实主要是用ADO连接，而ADO也是最常用的连接技术之一。
     以下几个控件在连接数据库时是用得比较多的，并且通常的的连接架构是
————————————————————
             数据库
          ......