在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。
一、默认方式以值方式传递参数
|
1 2 3 4 5 6 7 8 9 10 |
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方式传递参数，这个参数在调用过程中不能改变，并且这种方式会被编译器优化，一般建议尽可能地使用这种方式。
|
1 2 3 4 5 6 |
procedure TForm1.ProcConst(const Value: string); begin origNum := Value + ' Me'; lblReturn.Caption := origNum; // 为'Hello Me‘ lblOrig.Caption := Value; // 为'Hello Me' end; |
三、按引用方式传递参数
|
1 2 3 4 5 6 |
procedure TForm1.ProcRef(var Value: string); begin origNum := Value + ' Me'; lblReturn.Caption := origNum; // 为'Hello Me‘ lblOrig.Caption := Value; // 为'Hello Me' end; |
四、按Out方式传递参数，这个方式传递参数时，参数可以不被初始化，即使有值也被忽视，它一般用于输出,它可以实现在一个过程中返回多个值,我们通常在分布式对象模型，如COM中使用它。
|
1 2 3 4 5 6 |
procedure TForm1.ProcOut(out Value: string); begin origNum:=Value+' Me'; lblReturn.Caption:=OrigNum;//为'Me' lblOrig.Caption:=Value;//为'Me' end; |
五、无类型参数，这是一种较为特殊的方法，参数的类型不确定，只能用Const、Var、Out修饰，不能用于值方式传递参数，具体使用示例如下：
|
1 2 3 4 5 6 |
procedure TForm1.ProcUntype(const Value); begin origNum:=string(Value)+' Me'; lblReturn.Caption:=OrigNum;//为'Hello Me' lblOrig.Caption:=string(Value);//为'Hello Me' end; |
六、默认参数，即如果此参数在调用时未提供时，将使用默认值。
|
1 2 3 4 5 6 |
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; |
七、开放数组参数，即参数数组的元素个数不确定。
|
1 2 3 4 5 6 7 8 9 10 11 12 |
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,其使用示例如下:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
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]); |
以上就是常见几种传递参数的方式。
