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]);
以上就是常见⼏种传递参数的⽅式。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。