Delphi 变量参数符 const、var、out 使用详解

procedure TestConst(const A: string);   //const
begin
  A := A + ' 你好！';  
end;

procedure TestVar(var A: string);  //var
begin
  A := A + ' 你好！';
end;

procedure TestOut(out A: string);  //out
begin
  A := A + ' 你好！';
end;

procedure  TestNull(A: string);  // 无变量参数符
begin
  A := A + ' 你好！';
end;

调用结果示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  sStr: string;
begin
  sStr := 'Delphi7';　
  
  TestConst(sStr);
  ShowMessage(sStr);    //const不允许修改。编译报错！
  
  TestVar(sStr);  
  ShowMessage(sStr);  //输出: Delphi7 你好！，var 变量进 / 出值的传递。
  
  TestOut(sStr);
  ShowMessage(sStr);  //输出：你好！，out返回赋值，对out的任何输入都被忽略。out参数不需要初始化。
  
  TestNull(S);
  ShowMessage(sStr);  // 输出: Delphi7， 方法TestVar 创建了一个新的变量A，不会对原来的变量值做修改。

end;

 

　　

 

　　

　　

 

 

创建时间：2021.02.06　　更新时间：