Delphi out 参数 string Integer

dianmengkui1387

墨衍会员 · AI 创作全网分发码龄10年

关注

转载最新推荐文章于 2026-09-03 12:26:49 发布 154 阅读 AI 写同款· GEO 优化 ›

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;

转载于:https://www.cnblogs.com/CodeGear/p/4134679.html