Record als Result einer Funktion

[Andreas13]

Inzwischen bin auch ich etwas klüger geworden...

Delphi-Quellcode:

Function Get_Record: MB_Record;
VAR
  MB_Rec_Neu: MB_Record;
  
Begin 
  // OHNE eigene Initialisierung:
  Result:= MB_Rec_Neu; 
End;
...
    MB_Rec:= Get_Record;
    // Himitsu hat recht: Das funktioniert NICHT mehr...
    // Das Funktions-Ergebnis kommt uninitialisiert vom Stack zurück
    
    WriteLn('MB_Rec.MB1 = ', MyBooleanStr[MB_Rec.MB1]);
    WriteLn('MB_Rec.MB2 = ', MyBooleanStr[MB_Rec.MB2]);
    WriteLn('MB_Rec.MB3 = ', MyBooleanStr[MB_Rec.MB3]);
    WriteLn('MB_Rec.MB4 = ', MyBooleanStr[MB_Rec.MB4]);
    WriteLn('MB_Rec.MB5 = ', MyBooleanStr[MB_Rec.MB5]);
    WriteLn('MB_Rec.MB6 = ', MyBooleanStr[MB_Rec.MB6]);
    WriteLn('MB_Rec.MB7 = ', MyBooleanStr[MB_Rec.MB7]);
    WriteLn;

Andreas