Delphi中TSomething的默认参数值

发布时间：2020-12-15 09:42:30 所属栏目：大数据来源：网络整理

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

我想知道这是否可以在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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!