delphi的函数和过程的区别和应用

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;  //函数

(1)

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;