过程与函数 Procedure Function

• Delphi的过程没有返回值，以Procedure开始

• Delphi的函数有返回值，以Function开始，冒号后面是返回值类型

• 过程与函数都可以有参数，也可以没有参数，参数位于小括号里，多个参数以分号分隔，在调用时是用逗号隔开的。

• 过程与函数都以分号结束。

• 让光标停留在过程和函数上，使用Ctrl+Shift+C,Delphi会自动声明这个过程或者函数

• Delphi与C不同，即使返回值也会执行到最后一条语句，不会返回后就终止。

例如：

//-------------------- 有参数的过程 --------------------
//声明
procedure NewPro(a: Integer; b: String; c: Byte);
//实现
procedure TForm1.NewPro(a:Integer;b:String;c:Byte);
begin
end;
//调用
NewPro(1,'2',3);

//-------------------- 没参数的过程 --------------------
//声明
procedure NewPro;
//实现
procedure TForm1.NewPro;
begin
end;
//调用
NewPro();

//-------------------- 有参数的函数 --------------------
//声明
function NewFun(a, b: Byte): Byte;
//实现
function TForm1.NewFun(a:Byte;b:Byte):Byte;
begin
      // NewFun:=a+b;//将值返回给函数
      Result:=a+b;//将值返回给Result，建议使用
end;
//调用
showmessage(inttostr( NewFun(1,2)));

//-------------------- 没参数的函数 --------------------
//声明
function NewFun:String;
//实现
function TForm1.NewFun:Byte;
begin
      // NewFun:='a';//将值返回给函数
      Result:='a';//将值返回给Result，建议使用
end;
//调用
showmessage(NewFun());