旁路函数“out”参数

Question

某些函数需要一个变量来发送一个值。但有时候我不需要这个值，也不想定义一个变量来使用它作为函数out参数。就像这样：

procedure test(out SomeVar: string); 
begin 
    //... 
end; 

我想安全地执行这样的：

test; 

Answer 1

您可以创建一个包装：

procedure test(); overload; 
var 
    SomeVar : string; 
begin 
    test(SomeVar); 
end; 

注意：您还必须标注其他版本overload，或者你可以打电话给你的包装test以外的东西，并删除overload。

另一种选择：（你单位的顶部，也许）某处声明一个虚拟变量：

var 
    DummyStr : string; 

那么你没有你想调用的函数每次来声明一个新的变量。

test(DummyStr); 

Answer 2

使用指针：

procedure test(SomeVar: PString = nil); 
begin 
    if SomeVal <> nil then SomeVar^ := ''; 
    //... 
    if SomeVal <> nil then SomeVar^ := ...; 
end; 

test; 

var 
    s: string; 

test(@s); 

Answer 3

可以重载的过程：

procedure test(out SomeVar: string); overload; 
begin 
    //... 
end; 

procedure test; overload; inline; 
var dummy: string; 
begin 
    test(dummy); 
end; 

请注意inline关键字，自Delphi 2005 AFAIR起可用。

我最常做的就是用的，而不是out参数指针：

procedure test(SomeVarP: PString=nil); 
begin 
    if SomeVarP<>nil then 
    SomeVarP^ := .... 
end; 

因此，你可以使用：

var s: string; 

test; 
test(@s);