Record als Result einer Funktion

[Rolf Frei]

Zitat von NoGAD:

Hallo,

wenn ich einen Record deklariere und diesen dann einer Funktion als Result zuordne, werden alle Werte innerhalb des Records auf True gesetzt.

Warum, weiß ich nicht.

Hier ein Beispiel:

Code:

type
  TTest_Result = record
    Test_a : Boolean;
    Test_b : Boolean;
    Test_c : Boolean;
  end;


  function test(a:integer):TTest_Result;

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

Rufe ich die funktion nun auf, ist alles vom Result auch True.

Eine Zuweisung mittels Result.Test_b := False; z.B. innerhalb der function oder vorher aus dem Aufruf der function heraus, bringt auch nichts.


Warum passiert das und wie behebe ich diesen Fehler?

LG Mathias

Du gibst einen uninitialsierten Record zurück. Daher ist es Zufall, was da deine Boolean für Werte haben. Ist das Byte auf auf das der Boolean zeigt per Zufall 0 ist es False, alles andere wird zu True. Die Lösung ist ganz einfach. Initialisieren den Recordspeicher mit Nullen.

Code:

type
  TTest_Result = record
    Test_a : Boolean;
    Test_b : Boolean;
    Test_c : Boolean;
  end;

  function test(a:integer):TTest_Result;

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

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