Was ist das für eine Konstruktion (record)?

[leddl]

Ist doch ganz offen ersichtlich: Er definiert ein Array aus einen Record, den er direkt in der Deklaration des Arrays definiert und belegt dann das Array mit den jeweiligen Werten.

Delphi-Quellcode:

var 
  // Mappingliste von Typen zu Namen 
  ResourceTypeDefaultNames: array[0..20] of record //ein Array eines Records
    ResType: PChar;      // der Record wird
    ResTypeName: string; // definiert
  end = ( 
    (ResType: RT_ACCELERATOR; ResTypeName: 'RT_ACCELERATOR'; ), //erstes Array-Element
    (ResType: RT_ANICURSOR; ResTypeName: 'RT_ANICURSOR'; ),     //zweites Array-Element
    (ResType: RT_ANIICON; ResTypeName: 'RT_ANIICON'; ),         //...
    (ResType: RT_BITMAP; ResTypeName: 'RT_BITMAP'; ) 
    //noch ein paar Zeilen weiter... 
    );

Übrigens hat er das ziemlich gut strukturiert. Die Bedeutung sticht einem eigentlich sofort ins Auge.