Delphi_08_Delphi_Object_Pascal_基本语法_06_函数参数

program DefaultParameter;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1 in 'unit1.pas';

var
nVar:integer;
strVar:string;
i:integer;
nVarArray:array of integer;
begin
{
1、 调用具有默认参数的方法
}
//不提供参数
unit1.defaultParameter(10);
//提供参数
unit1.defaultParameter(10,'volcanol');

//调用无类型参数的函数
{
1、constant object cannot be passed as var paramter
}
//WriteLn(noTypeParameter('100'));  //这样无法调用
nVar := 100;
WriteLn(noTypeParameter(nVar));

//转换时出现了异常，因此不建议使用无类型参数
strVar:= '100';
WriteLn(noTypeParameter(strVar));

//调用短字符串类型参数的函数
for i := 0 to sizeof(ShortString)  do
begin
strVar[i]:='a';
end;
shortSringParameter(strVar);

//如果将 string类型的变量传递给 shortString 类型变量会自动截断
for i := 0 to sizeof(ShortString) + 128 do
begin
strVar[i]:= 'a';
end;
shortSringParameter(strVar);

//动态数组参数
try
SetLength(nVarArray,10);
WriteLn(Low(nVarArray));
WriteLn(High(nVarArray));
for i := Low(nVarArray) to High(nVarArray)  do
begin
nVarArray[i] := i;
end;
WriteLn(High(nVarArray));
arrayParameter(nVarArray);
except
on E:Exception do
ReadLn;
end;

ReadLn;
ReadLn;
end.

{       参数
1、默认参数
2、无类型参数
3、短字符串参数
4、数组参数
}

{
1、 和其他的OOP编程语言一样，Delphi的Object Pascal语言也支持方法和函数的
默认参数机制
2、 默认参数在某些场合非常适用，当一些方法、函数的参数在不同的场合调用时
均具有同样的设置时，就可以设置为默认参数
3、 如何函数参数设置过默认参数，那么在调用的时候就可以不提供实际参数
}

unit Unit1;

interface
{
单元文件的结构需要注意
}
uses
SysUtils;

{
单元文件中， type类型定义必须在 uses 子句后面
}
type
PInt=^integer;

{       默认参数
1、默认参数的定义的规则与C++里面默认参数的规则类似
2、默认参数定义的形式参数必须从最后一个参数开始，及从右往左定义
3、如果一个参数定义了默认参数，则其后面的参数均需要定义默认参数
4、如果在一个类型中定义了多个形式参数，则这些形式参数均不能定义默认参数
5、
}
procedure defaultParameter(nVar:integer;varStr:string='Delphi');

{       无类型参数
1、无类型参数就是例程声明时形式参数不指定形式参数的类型
2、无类型参数定义时必须用关键字var、const、out之中的一个
3、无类型参数不能使默认的传值方式
4、在使用无类型参数时，必须将参数进行类型转换后才能使用
5、调用时需要注意存在一些限制
A) 整型字面值不能传递给无类型参数
B) 无类型的整型值不能传递给无类型参数
6、由于无类型参数在转换的时候存在太多的限制，建议一般不要使用这种类型的定义
方法
}
function noTypeParameter(var noTypeVar):string;

{       短字符串参数
1、 短字符串类型 ShortString 是255字节长度的字符串类型
2、 可以通过 string[length] 的方法定义指定长度小于255字节的字符串类型
varStr:string[255]; 就是定义一个长度最大为255字节的字符串变量
3、 形式参数不能用 string[length] 的方式定义 ，如果需要的话就必须定义新的
数据类型
3、 2010以后 string默认为WideString, 需要打开开关才能使 AnsiString类型
}
procedure shortSringParameter(strVar:ShortString);

{       数组参数
1、数组分为静态数组、动态数组，还有一种数组类型 开发数组
2、静态数组定义为
nVarArray:array[1..10] of integer; //在定义的时候自定数组维度
3、动态数组定义为
定义动态数组类型
nVarArray:array of integer;  //定义时不指定数组的维度，
使用前用 SetLength(数组名，第一维的长度，第二维的长度，) 函数申请
数组空间。
3、数组参数在定义时不能指定数组的维度和大小，要使用指定类型的参数，则必须定义
新的数据类型
4、还可以使用开放数组形式定义数组参数
}
procedure arrayParameter(nVarArray:array of integer);

implementation
procedure defaultParameter(nVar:integer;varStr:string='Delphi');
var
str:string;
begin
str := 'Hello ' + varStr;
WriteLn(str);
end;

function noTypeParameter(var noTypeVar):string;
var
str:string;
begin
//将 noTypeVar 无类型参数转换为整型数
str:= IntToStr(integer(noTypeVar));

//隐含的变量 result 返回函数值
result := str;
end;

procedure shortSringParameter(strVar:ShortString);
begin
WriteLn(strVar);
end;

{
1、下面的函数执行的过程中还存在一定的问题，需要继续研究一下
2、动态数组的上、下界最好通过Low()、High()函数来求取，所以与 C/C++ 有一点区别
}
procedure arrayParameter(nVarArray:array of integer);
var
i:integer;
begin
WriteLn(Low(nVarArray));
WriteLn(High(nVarArray));

for i := Low(nVarArray) to High(nVarArray) do
begin
//WriteLn(IntToStr(nVarArray[i])); //这样编译就会出错，原因？？
WriteLn(nVarArray[i])  ;
end;
end;

end.