Delphi中TSomething的默认参数值

概述我想知道这是否可以在Delphi中使用(或者如果有一个干净的方法)： type TSomething = record X, Y : Integer; end; GetSomething(x,y) – >返回带有这些值的记录. …然后你有TSomething作为参数的这个功能,你想默认它 function Foo( Something : TSomething = GetSomething 我想知道这是否可以在Delphi中使用(或者如果有一个干净的方法)：

type TSomething = record  X,Y : Integer; end;

GetSomething(x,y) – >返回带有这些值的记录.

…然后你有TSomething作为参数的这个功能,你想默认它

function Foo( Something : TSomething = GetSomething( 1,3 );

编译器在这里发出错误,但我不确定是否有办法绕过它！

可以这样做吗？

解决方法 最简单的方法是使用重载过程：

program TestOverloading;{$APPTYPE CONSolE}uses  SysUtils;type  TSomething = record    X,Y : integer;  end;const  cDefaultSomething : TSomething = (X:100; Y:200);procedure Foo(aSomething : TSomething); overload;begin  writeln('X:',aSomething.X);  writeln('Y:',aSomething.Y);end;procedure Foo; overload;begin  Foo(cDefaultSomething);end;begin  Foo;  readln;end.

总结

以上是内存溢出为你收集整理的Delphi中TSomething的默认参数值全部内容，希望文章能够帮你解决Delphi中TSomething的默认参数值所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。