我想知道这在德尔福中是否可行（或者是否有一种干净的方法可以解决它）：
type
TSomething = record
X, Y : Integer;
end;
GetSomething( x, y )-> 返回具有这些值的记录。
...然后你就可以使用这个功能TSomething作为参数，并且您希望将其默认为
function Foo( Something : TSomething = GetSomething( 1, 3 );
编译器在这里吐出一个错误，但是我不确定是否有解决方法！
这可以做到吗？
使用重载：
procedure Foo(const ASomething: TSomething); overload;
begin
// do something with ASomething
end;
procedure Foo; overload;
begin
Foo(GetSomething(1, 3));
end;
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
