Delphi 函数参数修饰中的var 、out和const

（1）var修饰符

添加var  是地址传递，会修改原有的变量

var

  s: string;

begin

  S := 'Hello';

  ChangeSVar(s);

  ShowMessage(S);

end;

// ChangeSVar 定义

procedure TForm1.ChangeSVar(var A: string);

begin

  A := A + 'World';

end;

以上会输出Hello World，由于是传址，修改的是原来的A

（2）无任何修饰符

var

  s: string;

begin

  S := 'Hello';

  ChangeS(s);

  ShowMessage(S);

end;

// ChangeS定义

procedure TForm1.ChangeS(A: string);

begin

  A := A + 'World';

end;

以上会输出Hello，由于方法ChangeS实际上是建立了一个新的A，而输出的仍是原来的A，值并无改变

（3）out修饰符

var

  s: string;

begin

  S := 'Hello';

  ChangeSOut(s);//  此时S的值是'Hello,'而非'Hello,World'!,在过程Hello中的S的原始值被丢弃了

  ShowMessage(S);

end;

// ChangeSOut定义

procedure TForm1.ChangeSOut(out A: string);

begin

  A := A + 'World';

end;

以上会输出World，out仅仅接受返回的值，对out的任何输入都会被忽略。同时out传递给过程的实际参数没必要进行初始化，好比对ChangeSOut的调用：

Var

  Tmp： string；

Begin

  ChangeSOut(Tmp);//编译也能够经过

End;

（4）Const修饰符

Const修饰的参数传入以后不容许修改

若是在过程当中修改参数会报错，好比：

Procedure xxxx.TestConst(const A: String);

Begin

  A := ’ss’; //企图修改const修改的参数，会报错

End;