delphi - DelphiのTSomethingのデフォルトパラメータ値

Question

これがDelphiで可能かどうか（またはそれを回避するためのクリーンな方法があるかどうか）を知りたいのですが：

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

GetSomething( x, y )->これらの値を持つレコードを返します。

...次に、この関数をTSomethingパラメーターとして使用し、デフォルトで次のようにします。

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

コンパイラはここでエラーを吐き出しますが、それを回避する方法があるかどうかはわかりません！

これはできますか？

Answer 1

オーバーロードを使用します。

procedure Foo(const ASomething: TSomething); overload;
begin
  // do something with ASomething
end;

procedure Foo; overload;
begin
  Foo(GetSomething(1, 3));
end;

Answer 2

最も簡単な方法は、オーバーロードされたプロシージャを使用することです。

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.

Answer 3

レコードの代わりにクラスを使用すると、次のようになります。

TSomething = class
public 
  X: integer;
  Y: integer
end;

procedure Foo(Something: TSomething = nil);
begin
  if (Something = nil) then
    Something := GetSomething(1, 3);
  ...
end;