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.
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;