Delphi过程函数传递参数的几种方式


在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。 
一、默认方式以值方式传递参数 
procedure TForm1.ProcNormal(Value: string); 
begin 
OrigNum:=Value+ Me; 
lblReturn.Caption:=OrigNum;//OrigNum为Hello Me 
lblOrig.Caption:=Value;//Value为Hello 
end; 
调用： 
OrigNum:=Hello; 
ProcNormal(OrigNum); 
二、以Const方式传递参数，这个参数在调用过程中不能改变，并且这种方式会被编译器优化，一般建议尽可能地使用这种方式。 
procedure TForm1.ProcConst(const Value: string); 
begin 
OrigNum:=Value+ Me; 
lblReturn.Caption:=OrigNum;//为Hello Me‘ 
lblOrig.Caption:=Value;//为Hello Me 
end; 
三、按引用方式传递参数 
procedure TForm1.ProcRef(var value: string); 
begin 
OrigNum:=Value+ Me; 
lblReturn.Caption:=OrigNum;//为Hello Me‘ 
lblOrig.Caption:=Value;//为Hello Me 
end; 
四、按Out方式传递参数，这个方式传递参数时，参数可以不被初始化，即使有值也被忽视，它一般用于输出,它可以实现在一个过程中返回多个值,我们通常在分布式对象模型，如COM中使用它。 
procedure TForm1.ProcOut(out Value: string); 
begin 
OrigNum:=Value+ Me; 
lblReturn.Caption:=OrigNum;//为Me 
lblOrig.Caption:=Value;//为Me 
end; 
五、无类型参数，这是一种较为特殊的方法，参数的类型不确定，只能用Const、Var、Out修饰，不能用于值方式传递参数，具体使用示例如下： 
procedure TForm1.ProcUntype(const Value); 
begin 
OrigNum:=string(Value)+ Me; 
lblReturn.Caption:=OrigNum;//为Hello Me 
lblOrig.Caption:=string(Value);//为Hello Me 
end;   
 六、默认参数，即如果此参数在调用时未提供时，将使用默认值。 
procedure TForm1.ProcDefault(const Value, const DefaultValue:string= 123); 
begin 
OrigNum:=Value+ Me+DefaultValue; 
lblReturn.Caption:=OrigNum;//为Hello Me 123 
lblOrig.Caption:=Value;// 为Hello Me 123 
end; 
七、开放数组参数，即参数数组的元素个数不确定。 
procedure TForm1.ProcArray(const Value: array of string); 
var 
i:Integer; 
begin 
for i:=Low(Value) to High(Value) do 
OrigNum:=OrigNum+Value[i];//调用后为Hello abc dbd 
lblReturn.Caption:=OrigNum; 
end; 
调用： 
OrigNum:=Hello; 
ProcArray([ abc , dbd]); 
八、无类型开放数组参数，即类型及元素个数皆不确定。在WIN32平台中，这个参数的类型实际为array of TVarRec,其使用示例如下: 
procedure TForm1.ProcArrayConst(const Value: array of const); 
var 
i:Integer; 
begin 
for i:=Low(Value) to High(Value) do 
with Value[i] do 
case VType of 
vtAnsiString: OrigNum:= OrigNum+String(VAnsiString); 
vtInteger: OrigNum:=OrigNum+IntToStr(VInteger); 
vtBoolean: OrigNum := OrigNum + BoolToStr(VBoolean); 
vtChar: OrigNum := OrigNum + VChar; 
vtExtended: OrigNum := OrigNum + FloatToStr(VExtended^); 
vtString: OrigNum := OrigNum + VString^; 
vtPChar: OrigNum := OrigNum + VPChar; 
vtObject: OrigNum := OrigNum + VObject.ClassName; 
vtClass: OrigNum := OrigNum + VClass.ClassName; 
vtCurrency: OrigNum := OrigNum + CurrToStr(VCurrency^); 
vtVariant: OrigNum := OrigNum + string(VVariant^); 
vtInt64: OrigNum := OrigNum + IntToStr(VInt64^); 
end; 
lblReturn.Caption:=OrigNum;//调用后为Hello abc 3 
end; 
调用： 
OrigNum:=Hello; 
ProcArrayConst([ abc ,3]); 
以上就是常见几种传递参数的方式。

补充：软件开发 , Delphi ,