对比C++语言

delphi与c语言在这方面对不同有很多,比如:语法对不同(声明 参数等不同);c语言可以有返回值为空的函数,但是在delphi里叫过程 等等,但是他们核心想法一致的,比如 都可以重载 递归哇;本篇就总结一下delphi 函数和过程的用法。

如何声明和定义

声明过程:

procedure 过程名(形式参数1;形式参数2;....);指示字;
// 这里用每个参数之间分号隔开,但是调用的时候用逗号隔开

这里的指示字是指 overload 重载哇 巴拉巴拉的这个地方留着我后续补充把;
指示字没有特殊要求是不用写的;

定义过程

在 implementation 关键字写过程的定义部分

procedure 过程名(形式参数1;形式参数2;....);指示字;
var
   声明的变量;//这里是局部变量
begin
过程体;
end;

实例可以见我前面的第一个Delphi作业;

声明函数:

把过程的关键字换成Function,然后后面加一个返回值就变成函数的声明了。

Function 函数名(形式参数1;形式参数2;....):返回值类型;指示字;

定义过程

在 implementation 关键字写过程的定义部分

Function 函数名(形式参数1;形式参数2;....);返回值类型;指示字; 
var
   声明的变量;//这里是局部变量
begin
过程体;
end;

实例可以见我前面的第一个Delphi作业;

delphi函数的返回值

在C/C++等语言中,函数执行到 return 部分之后,将立即停止函数的执行,并返回值,并且只能有一个return(条件语句除外),在delphi,并没return,那么如何返回呢?有两种方法:
1.给函数名赋值(不提倡用)
2.给result赋值

函数中,执行到result时,并不同于比如 C/C++ 中的 return,跳出函数,而是会继续执行下去,直到函数结束

function(var A:string):string;
var S,S1,S2:string;
begin
  Result := '';    //此处将继续往下执行
......
  A:=S1;
......
  A:=S2;
......
  Result := S;    //跳出判断后,已经到程序结尾,过程结束。
end;

而且在上面的函数中,最终的返回值是最后一个Result的值

对参数的修饰

var 传入地址

我们在c语言中经常传入地址,那么在delphi里如何实现呢,我们只需要在传入的参数名前加一个var 就好了
例如

procedure PP(var a:integer);

这里我们就传入地址,在函数里操作改变了n,那么传入的n也会改变;

const 常量参数

在传入的参数前加一个 const 那么在这个函数/过程里就无法改变这个的参数的值

out 外部参数

个人还没有感觉这个out有啥用先把写在这里
Out参数会把初值舍弃,Out参数仅用作输出,不管外界输入的是啥,反正初值不影响我最后的输出;

例子

procedure OutValue(out v:string);
begin
  showMessage(v);
end;

在这里 我不管给v传入啥东西,反正最后v还是空字符串

重载

和c++的重载一样,只不过 后面要写指示字 overload;

procedure OutValue(out v:string);overload;

递归

和c++一样的,直接上例子把
写一个算阶乘的函数吧;

function factorial(n:Integer):Integer;
begin
  if n=0 then
    result:=1
  else
    Result:=n*factorial(n-1);
end;

结束

本文由 越行勤 创作,如果您觉得本文不错,请随意赞赏
采用 知识共享署名4.0 国际许可协议进行许可
本站文章除注明转载/出处外,均为本站原创或翻译,转载前请务必署名
原文链接:https://blog.yxqin.top/2020/10/08/delphi过程与函数
最后更新于:  316  天前,内容可能已经不具有时效性,请谨慎参考。

Q.E.D.


努力学习的小菜鸟