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],#$);
 end;
 Writeln('数组长度为：',Length(IntArray));
 end;

 var
   a,b : Integer;

 begin
   a := ;
   b := ;
   Demo1(a,b);
   Demo2(a,b);
   Demo3([,,,]);//数组传值
   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(,,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(,,sum);
   Writeln(sum);
   Readln;
 end.

 {通过函数名称获取返回值}
 function GetResultByFunName():Integer;
 begin
   GetResultByFunName := +;
 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.