一、例程：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.