Delphi-基础（例程、例程返回值）

一、例程：Delphi中独有的称呼，例程是将具体某个功能的代码进行封装表现形式：
　　1、过程
　　2、函数
　　过程和函数的区别在于有没有返回值
二、例程的作用
　　1、可以解决命名冲突问题
　　2、提高代码的重复使用率
　　3、提高代码可维护性
三、使用历程
　　1、定义

procedure Demo1();    //过程
begin

end;

　　函数的定义

function Demo2(var a : Integer;var b : Integer) : Integer;  //函数
begin
  Writeln(a,',',b);
end;

{传递参数个数不固定（多个参数）}
procedure  Demo3(const num1 : array of Integer);
var
X,Y : Integer;
begin

end;

四、例程返回值

 1 {*------------------------------------------------------------------------------
 2 一、什么是例程：Delphi中独有的称呼，例程是将具体某个功能的代码进行封装表现形式：
  1、过程
  2、函数
过程和函数的区别在于有没有返回值
二、例程的作用
  1、可以解决命名冲突问题
  2、提高代码的重复使用率
  3、提高代码可维护性
三、怎么使用历程
  1、定义

-------------------------------------------------------------------------------}
procedure Demo1(a : Integer;b : Integer);    //过程，传值
begin
  Writeln(a+b);
end;

{*------------------------------------------------------------------------------
函数的定义
  @return
-------------------------------------------------------------------------------}
function Demo2(var a : Integer;var b : Integer) : Integer;  //过程，传地址
begin
  Writeln(a+b);
end;

{传递参数个数不固定（多个参数）}
procedure  Demo3(const IntArray : array of Integer);
var
  I : Integer;
begin
Writeln('----------------------------');
for I := Low(IntArray) to High(IntArray) do begin
  Writeln(IntArray[I],#$09);
end;
Writeln('数组长度为：',Length(IntArray));
end;

var
  a,b : Integer;

begin
  a := 1;
  b := 2;
  Demo1(a,b);
  Demo2(a,b);
  Demo3([4,6,9,7]);//数组传值
  Readln;
end.

{返回值：通过引用获取运算结果}
function Sub1(Num3 : Integer;Num4 : Integer;var sum : Integer) : Integer;
//var sum : Integer 传入地址
begin
  sum := Num3 - Num4;
  Exit;
end;

var
  Sum1 : Integer;
begin
  Sub1(5,3,Sum1);
  Writeln(Sum1);
  Readln;
end.

{返回值:out}
function mul(Num5:Integer;Num6:Integer;out sum:Integer):Integer;
begin
  sum := Num5 * Num6;
  Exit;
end;
var
  sum : Integer;
begin
  mul(5,3,sum);
  Writeln(sum);
  Readln;
end.

{通过函数名称获取返回值}
function GetResultByFunName():Integer;
begin
  GetResultByFunName := 1+3;
end;
begin
  Writeln(GetResultByFunName());
  Readln;
end.

{overload 函数重载：函数名相同，参数列表不同,使用关键字标识}
function Add(Num1 : Integer;Num2 : Integer;var sum : Integer) : Integer;  overload;
begin
  sum := Num1 + Num2;
  Exit;
end;

function Add(Num1 : Double;Num2 : Double;out sum : Double) : Double; overload;

begin
  sum := Num1 + Num2;
  Exit;
end;

var
//  sum : Integer;
  sum : Double;
begin
//  Add(2,3,sum);
  Add(2.4,2.02132,sum);
  Writeln(sum);
  Readln;
end.

{forward 前置声明}
function DivFun() : Integer; forward;

function MilFun() : Integer;
begin
  DivFun();
end;

function DivFun() : Integer;
begin
  Writeln('test');
end;
begin
  MilFun();
  Readln;
end.