Record als Result einer Funktion

[Andreas13]

Und - damit wir beim Thema bleiben (Record als Result einer Funktion) - fügen wir noch folgenden Code zusätzlich ins obige Programm ein:

Delphi-Quellcode:

Type
  MB_Record = Record
    MB1: MyBoolean;
    MB2: MyBoolean;
    MB3: MyBoolean;
    MB4: MyBoolean;
    MB5: MyBoolean;
    MB6: MyBoolean;
    MB7: MyBoolean;
  End;
...

VAR
  MB_Rec: MB_Record;
...
    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;

Auch dann funktioniert es.
Gruß, Andreas