Delphi out 参数 string Integer

http://www.delphibasics.co.uk/RTL.asp?Name=Out

http://stackoverflow.com/questions/14507310/whats-the-difference-between-var-and-out-parameters

A var parameter will be passed by reference, and that's it.

var参数将以引用方式传递。

An out parameter is also passed by reference, but it's assumed that the input value is irrelevant.

out参数也是以引用传递，但是它（编译器）假定输入值是不相关的。

For managed types, (strings, Interfaces, etc,) the compiler will enforce this, by clearing the variable before the routine begins, equivalent to writing param := nil.

对（生存期自动）管理的类型（字符串，接口，等），编译器会强制在routine开始前清空out变量，等同于写参数值为空。

For unmanaged types, the compiler implements out identically to var.

对非管理类型，编译器实现out等同于var参数。

Note that the clearing of a managed parameter is performed at the call-site and so the code generated for the function does not vary with out or var parameters.

说明，对受管理类型参数的清理是在 调用位置 进行的，所以（编译器）为被调用函数产生的代码是不包括out或var参数的。

share|edit

edited Jan 24 '13 at 19:05

David Heffernan
316k22396683
answered Jan 24 '13 at 17:38

Mason Wheeler

procedure testout(const str: string; out a: string; out I: Integer);
begin
ShowMessage(a + IntToStr(I));//100  a是空的
a := str;
I := 200;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s, ss, ds, qx, dz: string;
I: Integer;
jo: ISuperObject;
begin
s := '外面';
ss:= 'out';
I:= 100;
testout(s, ss, I);
ShowMessage(ss + IntToStr(I));//外面200

Exit;

end;