在编制了一个应用程序后的维护阶段，我们会面临给应用程序升级的工作.无疑，手工升级的工作是十分繁琐的，你可能会需要到用户的机器上去更新文件.可是，如果能编一个自动升级程序，放在网络上，让用户下载，只需执行一下就完成升级工作，不是很方便吗？其实，用Delphi可以很方便地编制出这样一个的程序.
以下是我们的例子，设我们已经有一个应用程序This.exe，要对它升级，用来升级的程序为Upgrade.exe.
1．This的工程文件框架
program THIS;
uses
SysUtils,
Windows,
Forms,
...;
我们将它写入代码中，因为这在Delphi的工程文件中是没有自动生成的.“…”部分是你创建的窗体部分
Var
Fn : String;
TSI : TStartupInfo;
TPI : TProcessInformation;
{$R *.RES}
begin
“升级程序”使用FileAge来检查原来应用程序的建立时间，如果检测到的是旧版本，则提示升级:
IF FileAge(‘SomeServerSomeDirthis.exe‘) 〉 FileAge(ParamStr(0)) THEN
IF Application.MessageBox(‘这是一个更新版本的THIS.EXE.‘+＃13‘你要得到新版本的升级文件吗？‘, ‘Upgrade Time!‘,1) = 1 THEN
......
注册码：6amd-pdj686-apme9d-9cdr
密匙：yvx-27c
Delphi部分函数、命令、属性中文说明
Abort 函数 引起放弃的意外处理
Abs 函数 绝对值函数
AddExitProc 函数 将一过程添加到运行时库的结束过程表中
Addr 函数 返回指定对象的地址
AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列
Align 属性 使控件位于窗口某部分
Alignment 属性 控件标签的文字位置
AllocMem 函数 在堆栈上分配给定大小的块
AllowGrayed 属性 允许一个灰度选择
AnsiCompareStr 函数 比较字符串（区分大小写）
AnsiCompareText 函数 比较字符串（不区分大小写）
AnsiLowerCase 函数 将字符转换为小写
AnsiUpperCase 函数 将字符转换为大写
Append 函数 以附加的方式打开已有的文件
ArcTan 函数 余切函数
AssignFile 函数 给文件变量赋一外部文件名
Assigned 函数 测试函数或过程变量是否为空
AutoSize 属性 自动控制标签的大小
BackgroundColor 属性 背景色
BeginThread 函数 以适当的方式建立用于内存管理的线程
BevelInner 属性 控件方框的内框方式
BevelOuter 属性 控件方框的外框方式
BevelWidth 属性 控件方框的外框宽度
BlockRead 函数 读一个或多个记录到变� ......
在编译delphi程序时会出现在些提示，全是E文的，现在给大家一个对照表，可以更好的理解错误提示信息！
';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not previously declared as a PROPERTY 前面没有说明PROPERTY
'GOTO ' leads into or out of TRY statement GOTO 进入或超出TRY语句的范围
clause expected
but found 要求子句，但出现
16-Bit fixup encountered in object file '' 在对象文件遇到16位修复
486/487 instructions not enabled 不能用486/487指令
Abstract methods must be virtual or dynamic 抽象方法必须为虚拟的或动态的
Array type required 需要数组类型
Assignment to FOR-Loop variable '' 给FOR循环变量赋值
Bad argument type in variable type array constructor 在变量类型数组结构中不正确的参数类型
Bad file format '' 错误的文件格式
Bad file format: 错误的文件格式
Bad global symbol definition: '' in object file '' 对象文件''中错误的全局符号定义''
Bad u ......
本文最早在编程论坛上发表，文章地址：http://programbbs.com/bbs/view12-21351-1.htm，相关文件可以在上述地址的页面中下载。转载时请注明出处。
一、前言
通配符就是指“*”和“?”两个字符，“*”表示当前位置可以没有或者有多个任意字符；“?”表示当前位置有一个任意字符。通配符匹配在网上资料中都有讲到，但主要说的都是字符串匹配而不是文本查找。我结合通配符匹配的算法写了一个支持通配符的文本查找函数。这个函数的源代码可以在本楼末尾的压缩包中得到。现在先说一下通配符匹配的算法。
二、通配符匹配算法
利用包含通配符的模式串（以下简称模式串）进行文本查找，通常会匹配到一个不定长度的文本。所以匹配完成后不但要得到匹配文本的结束位置也要得到匹配文本的开始位置。现在先来看一个简单的问题：假设有长度为PLen的模式串P，以及长度为TLen的文本T。如果P中不包含通配符，那么用下面这个简单算法就可以完成查找：
function FindText1(P,T : PAnsiChar; PLen,TLen : Integer; var SelStart,SelEnd : Integer): Boolean;
var
PCur,TCur : Integer;
begin
result:=fa ......
方法1：可写为函数，再调用
Application.CreateForm(TForm1, Form1);
Form1.ShowModal;
Form1.Free;
方法2：
Form1:= TForm1.Create(Application);
try
Form1.ShowModal;
finally
FreeAndNil(Form1);
end;
方法3：
Form1:=TForm1.Create(self);
Form1.ShowModal;
Form1.Free;
Form1:=nil; ......
例如以下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.one();
var
p : pointer;
begin
p:=@two;
end;
function TForm1.two(x,y:integer):integer;
begin
Result:=x+y;
end;
end.
在Delphi5中，没有任何问题，到了delphi7、2007、2009中就会报错：需要变量（Delphi6没试）
原因是新版本中要求返回函数地址的函数必须是全局函数，所以程序要改成这样：
................................
var
Form1: TForm1;
function two(x,y:integer):integer;
................................
function two(x,y:integer):integer; ......
最新文章 : delphi