Delphi初浅入门笔记之五：过程和函数，总结篇
通过以上两篇知道过程和函数有些类似。就我的理解除了返回值之外，还有一个不同是过程应用于事迹机制。而函数，应该更多是做为程序的一个子模块来应用。为了加深理解，转载了百度空间中的一片文章。
Delphi 函数和过程的应用与区别（转）
2009-11-10 21:43
1.格式如下：
(1)函数：
function 函数名(标识符)(param1,param2:string;int1,int2:integer):返回值；
function GetUserInfo(sAsia,sState,sCity:string;sAge,sHeight:integer):boolean;
(2)过程：
procedure 过程名(标识符)(param1,param2,param3:string);
procedure MyDelFile(sFileName:string;)
2.应用如下：
function MyDelFileFunc(sFileName:string):boolean;
begin
Result := DeleteFile(sFileName); //注意这里需要返回值，不然下面的调用无法判断是否删除；
end;
procedure MyDelFileProc(sFileName:string);
begin
DeleteFile(sFileName);
end;
procedure TForm1.Button1Click(Sender : TOBJect);
var
bIsCheck : boolean;
begin
MyDelFileProc('d:\1.txt'); //调用过程进行删除；无法判断是否已经删除；
bIsCheck := MyDelFileFunc('D:\1.txt'); //调用函数进行删除; 可以通过返回值判断是否删除
if bIsCheck then
begin
showmessage('del is Ok');
end
else
begin
showmessage('del is NO');
end;
end;
3.在Delphi中，函数或者过程地址可以通过赋值给一个变量，变量用如下方式声明:
var p : procedure(sFileName:string); //过程
var f :function(sFilename:sting):boolean; //函数
实例：
var p : procedure(sFileName:string);
var f : function(sFileName:string);
procedure MyDelFileProc(sFileName:string);
begin
DeleleFile(sFileName);
end;
function MyDelFileFunc(sFileName:string):boolean;
begin
Result := DeleleFile(sFileName); //注意这里需要返回值，不然下面的调用无法判断是否删除；
end;
procedure TForm1.Button1Click(Sender : TOBJect);
var
bIsClick : boolean;
begin
p := MyDelFileProc;
f := MyDelFileFunc;
p('d:\1.txt');
bIsClick := f('d:\1.txt');
if bIsClick then
begin
showmessage('Del Ok');
end
else
begin
showmessage('Del No');
end;
end;
4.通过定义一个过程和函数的类型，在定义类型的变量；
Type TDelProc = procedure(sFileName:string);
Type TDelFunc = function(sFileName:string):boolean;
procedure TForm1.Button5Click(Sender : TOBJect);
var
bIsClick : boolean;
DelProc : TDelProc;
DelFunc : TDelFunc;
begin
DelProc := MyDelFileProc;
DelFunc := MyDelFileFunc;
DelProc('d:\1.txt');
bIsClick := DelFunc('d:\1.txt');
if bIsClick then
begin
showmessage('Del Ok');
end
else
begin
showmessage('Del No');
end;
DelProc := nil;
DelFunc := nil; //可以赋值类型的变量为nil为清除
end;
5.在Delphi中，有种特殊的过程叫做Method（方法）;在定义方法类型的时候要在定义过程的后面加上 of object
如：
Type TMyMethod = procedure(num:integer) of object;
也可以定义类型的变量：
var
MyMethod : TMyMethod;
方法类型常用于定义类的事件定义，如控件中OnClick事件，他的类型定义：
type TNotifyEvent=Procedure(Sender : TObject) of object;
定义普通类型和方法类型
Type TMyInfo = produce(num:integer);
type TMyInfoMethod = procedure(num:integer) of object;
http://hi.baidu.com/tf1008/blog/item/0299c7341a83da3b0a55a9d3.html