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;