Record als Result einer Funktion

[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.