Delphi 系统[15]关键字和保留字 procedure、function、forward、out - 函数、过程相关

Delphi 系统[15]关键字和保留字  procedure、function、forward、out -函数、过程相关

1、定义：

• procedure ：定义过程，过程无返回值。主要用来执行一系列动作。还可以用来声明自定义函数类型。  
• function ：定义函数，函数有返回值。主要用来计算某一结果。还可以用来声明自定义函数类型。
• forward ：用于函数（或过程）的前置声明，这样可以使代码中“较先实现的函数”可 以调用“较后实现的函数”，如果“较后实现的函数”不做前置声明，则它不能被前面的函数调用。  
• out ：定义函数（或过程）的参数为传出类型，out 类型的参数用来将函数的执行结果通过此参数返回给调用者（传地参数）。 
  • 调用者在调用函数时，不需要给 out 类型的参数赋值，赋了也没用。 
  • 与关键字 var 比较，var：定义函数（或过程）的参数为传址类型，var类型的参数在函数内的一切改变都会返回给调用者，调用者也可以在调用函数前，给 var 参数赋值，然后传递到函数里面使用。   

2、示例：

{函数前置声明 forward; } 
function CalcP(R: Double): Double; forward; 
function CalcA(R: Double): Double; forward; 
 
{ 过程：执行一系列动作，显示圆的半径、周长、面积信息 } 
procedure ShowInfo(Radius: Double); 
var 
  sRadius: string; 
  sPerimeter: string; 
  sArea: string; 
begin 
  sRadius := FloatToStr(Radius); 
 
 { 如果不做前置声明，则这里无法调用CalcP函数，因为函数在ShowInfo之后 } 
  sPerimeter :=FloatToStr(CalcP(Radius)); 
 
  { 如果不做前置声明，则这里无法调用CalcA函数，因为函数在ShowInfo之后 } 
  sArea := FloatToStr(CalcArea(Radius)); 
 
  ShowMessage('半径：' + sRadius + #13#10 + '周长：' +  sPerimeter + #13#10 + '面积：' + sArea); 
end; 
 
{ 函数：计算圆的周长 } 
function CalcPerimeter(R: Double): Double; 
begin 
  { 2 乘以 派 乘以 半径，Pi 是系统函数，计算圆周率 } 
  Result := 2 * Pi *R; 
end; 
 
{ 函数：计算圆的面积 } 
function CalcArea(R: Double): Double; 
begin 
  { 派 乘以 半径的平方，Pi 是系统函数，计算圆周率 } 
  Result := Pi * R * R; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowInfo(10.5); 
  ShowInfo(30.25); 
end; 
 


{ 声明自定义函数类型 TMyFunc } 
type 
  TMyFunc = function(I:Integer): Integer; 

{ 某个函数 } 
function GetCountNum(Num: Integer): Integer; 
var 
  I: Integer; 
begin 
  Result := 0; 
  for I := 0 to Num do 
  begin 
    Result := Result + I; 
  end; 
end; 
 
{ 自定义函数类型一般用作函数或过程的参数 } 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  MyFunc: TMyFunc; 
  iCountNum: Integer; 
begin 
  { 将某个同类型的函数赋值给MyFunc，要保证函数一致 } 
  MyFunc := GetCountNum; 
  { 然后 MyFunc 就可以像普通函数一样使用 } 
  iCountNum := MyFunc(100); 
  Caption := IntToStr(iCountNum);  { 结果：5050 } 
end; 
 

{ var 和 out 的使用} 
{ 过程是没有返回值的，但是我们可以通过 var 或 out 参数来返回数据 } 
procedure Test(var I: Integer; out S: String); 
begin 
  { 查看传进来值 } 
  ShowMessage('参数I：' +IntToStr(I) + #13#10 + '参数S：' +S);  { S 将为空 } 
  { 修改参数的值，看能否传递到过程外面去 } 
  I := I + 100; 
  S := S + 'TaoRoy';  { 如果我们将这一行代码注释掉，则 S 将返回空字符串 } 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  A: Integer; 
  B: String; 
begin 
  A := 1; 
  B := 'ABC'; 
  Test(A, B);  { 'ABC' 无法传入到函数中 } 
  Caption := IntToStr(A ) + ' ' +B;    { 结果 101 TaoRoy } 
end; 

　　

 

 

 

创建时间：2021.08.11　　更新时间：