delphi - 绕过函数 "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);