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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;

调用结果示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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　　更新时间：