Record als Result einer Funktion

[Uwe Raabe]

Zitat von Rolf Frei:

Code:

  function test(a:integer):TTest_Result;
  begin
    FillChar(Result, SizeOf(Result), 0);
    Result.Test_a := True;
  end;

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

[NoGAD]

Zitat von Uwe Raabe:

Zitat von Rolf Frei:

Code:

  function test(a:integer):TTest_Result;
  begin
    FillChar(Result, SizeOf(Result), 0);
    Result.Test_a := True;
  end;

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

Dankeschön. Irgendwie ist mir der Beitrag von Rolf entgangen. Das hilft mir auf jeden Fall schon einmal weiter und erleichtert mir die Grundinitialisierung eines Records.

[Rolf Frei]

Zitat von Uwe Raabe:

Alternativ geht auch

Delphi-Quellcode:

  function test(a:integer):TTest_Result;
  begin
    Result := Default(TTest_Result);
    Result.Test_a := True;
  end;

Default kenne ich noch garnicht. Wann wurde das eingeführt? In der 10.3 Hilfe finde ich nichts dazu.

[Uwe Raabe]

Zitat von Rolf Frei:

Default kenne ich noch garnicht. Wann wurde das eingeführt? In der 10.3 Hilfe finde ich nichts dazu.

Das ist wieder so'ne Compiler-Magic. Eingeführt wurde das wohl in Delphi 2009.

[Rolf Frei]

Ok danke für die Info. Nach vielen Jahren wieder was Neues gelernt.

[Uwe Raabe]

Zitat von Rolf Frei:

Ok danke für die Info. Nach vielen Jahren wieder was Neues gelernt.

Das ist ganz praktisch bei Generics:

Delphi-Quellcode:

type
  TMyGen<T> = class
    function Test: T;
  end;

function TMyGen<T>.Test: T;
begin
  Result := Default(T);
end;