您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

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

时间:2011/9/3 15:36:01 点击:

  核心提示:一、默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string);begin OrigNum:=Value+' Me'; lblReturn.Capt...

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

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

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

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号