Record als Result einer Funktion

[Andreas13]

Zitat von himitsu:

Zitat von Andreas13:

Du könntest Deinen eigenen Boolean-Typ deklarieren, bei dem dieses Problem nicht auftritt.
Und schon sind Deine Variablen beim Anlegen & Löschen "automatisch" auf boUndef gesetzt.

Eben nicht.
Also im Prinzip ist es ach deiner Definition ein Variant, der von Haus aus erstmal NULL ist und anschließens True oder False (WordBool) aufnehmen kann.

Mit dem Unterschied dass der Variant immer initialisiert ist und dein ENUM nicht.
siehe auch https://www.delphipraxis.net/203800-...string%3B.html

Bei allem Respekt, aber folgendes kleines Demoprogramm widerlegt Deine Thesen:

Delphi-Quellcode:

program Aufzaehlungstyp_Initialisierung_Test_1;
{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

Type
  MyBoolean = (boUndef, boFalse, boTrue);

CONST
  MyBooleanStr: Array[MyBoolean] of String = ('Undefiniert', 'Nein', 'Ja');
  n_Daten = 150;
  
VAR 
  MB: MyBoolean;  
  MB_Array: Array[1..n_Daten] of  MyBoolean;
  i       : Integer;
    
Begin
  Try  
    // OHNE eigene Initialisierung:

    WriteLn('MB:  MyBooleanStr[MB] = ', MyBooleanStr[MB]);
    WriteLn;

    For i:= 1 To  n_Daten Do
    Begin
      WriteLn('MyBooleanStr[MB_Array[', i.ToString.PadLeft(3), ']] = ', MyBooleanStr[MB_Array[i]]);
    End;
    
    ReadLn;

  Except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  End;
End.

Bitte selber überprüfen.
Gruß, Andreas