鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

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

来源:互联网 作者:佚名 时间:2015-07-05 21:29
今天一同事问我为什么有些过程函数里面有Var而有些没有,不解,遂到网上百度,得解。快哉,快哉。 在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。 以下是我百度出来的八种Delphi过程函数的传递方式。 一

    今天一同事问我为什么有些过程函数里面有Var而有些没有,不解,遂到网上百度,得解。快哉,快哉。

    在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。 以下是我百度出来的八种Delphi过程函数的传递方式。

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

    [delphi] procedure TForm1.ProcNormal(Value: string);

    begin

    OrigNum:=Value+' Me';

    lblReturn.Caption:=OrigNum;//OrigNum为'Hello Me'

    lblOrig.Caption:=Value;//Value为'Hello'

    end;

    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方式传递参数,这个参数在调用过程中不能改变,并且这种方式会被编译器优化,一般建议尽可能地使用这种方式。

    [delphi] procedure TForm1.ProcConst(const Value: string);

    begin

    OrigNum:=Value+' Me';

    lblReturn.Caption:=OrigNum;//为'Hello Me‘

    lblOrig.Caption:=Value;//为'Hello Me'

    end;

    procedure TForm1.ProcConst(const Value: string);

    begin

    OrigNum:=Value+' Me';

    lblReturn.Caption:=OrigNum;//为'Hello Me‘

    lblOrig.Caption:=Value;//为'Hello Me'

    end;

    三、按引用方式传递参数

    [delphi] procedure TForm1.ProcRef(var 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中使用它。

    [delphi] procedure TForm1.ProcOut(out Value: string);

    begin

    OrigNum:=Value+' Me';

    lblReturn.Caption:=OrigNum;//为'Me'

    lblOrig.Caption:=Value;//为'Me'

    end;

    procedure TForm1.ProcOut(out Value: string);

    begin

    OrigNum:=Value+' Me';

    lblReturn.Caption:=OrigNum;//为'Me'

    lblOrig.Caption:=Value;//为'Me'

    end;

    五、无类型参数,这是一种较为特殊的方法,参数的类型不确定,只能用Const、Var、Out修饰,不能用于值方式传递参数,具体使用示例如下:

    [delphi] procedure TForm1.ProcUntype(const Value);

    begin

    OrigNum:=string(Value)+' Me';

    lblReturn.Caption:=OrigNum;//为'Hello Me'

    lblOrig.Caption:=string(Value);//为'Hello Me'

    end;

    procedure TForm1.ProcUntype(const Value);

    begin

    OrigNum:=string(Value)+' Me';

    lblReturn.Caption:=OrigNum;//为'Hello Me'

    lblOrig.Caption:=string(Value);//为'Hello Me'

    end;六、默认参数,即如果此参数在调用时未提供时,将使用默认值。

    [delphi] 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.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;

    七、开放数组参数,即参数数组的元素个数不确定。

    [delphi] 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;

    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,其使用示例如下:

    [delphi] 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;

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

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

网友评论
<