delphi:传递参数的几种方式（转载）

 原文地址：https://www.delphitop.com/html/chengxu/2732.html

一、默认方式以值方式传递参数 

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]);

以上就是常见几种传递参数的方式。