Olli hat in diesem Beitrag einen Code gepostet, der u.A. folgenden Auszug enthält:

zusammenfalten · markieren

Delphi-Quellcode:

var
  // Mappingliste von Typen zu Namen
  ResourceTypeDefaultNames: array[0..20] of record
    ResType: PChar;
    ResTypeName: string;
  end = (
    (ResType: RT_ACCELERATOR; ResTypeName: 'RT_ACCELERATOR'; ),
    (ResType: RT_ANICURSOR; ResTypeName: 'RT_ANICURSOR'; ),
    (ResType: RT_ANIICON; ResTypeName: 'RT_ANIICON'; ),
    (ResType: RT_BITMAP; ResTypeName: 'RT_BITMAP'; )
    //noch ein paar Zeilen weiter...
    );

Nur würde mich jetzt interessieren, was das genau für eine Konstruktion ist und was sie macht... weil ich sowas bisher noch nicht gesehen hab

Dat is ganz einfach eine Varibale, welche aus einem Array of Record bersteht

und diese Variable ist dazu noch mit bestimmten werten vorbelegt.


ist sowas wie
Var i: Integer = 100;

[add]
es entspricht im Grunde genommen dem:

zusammenfalten · markieren

Delphi-Quellcode:

ResourceTypeDefaultNames: array[0..20] of record
  ResType: PChar;
  ResTypeName: string;
end;


ResourceTypeDefaultNames[0].ResType := RT_ACCELERATOR;
ResourceTypeDefaultNames[0].ResTypeName := 'RT_ACCELERATOR';
ResourceTypeDefaultNames[1].ResType := RT_ANICURSOR;
ResourceTypeDefaultNames[1].ResTypeName := 'RT_ANICURSOR';
ResourceTypeDefaultNames[2].ResType := RT_ANIICON:
ResourceTypeDefaultNames[2].ResTypeName := 'RT_ANIICON';
...

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.

zusammenfalten · markieren

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.

Zitat von himitsu:

Dat is ganz einfach eine Varibale, welche aus einem Array of Record bersteht

und diese Variable ist dazu noch mit bestimmten werten vorbelegt.


ist sowas wie
Var i: Integer = 100;

naja, das wäre eine Erklärung. Besonders verwunderlich fand ich jedoch, dass so viele Werte darin gespeichert werden... aber so ist mir das ganze noch gar nicht aufgefallen

edit: Das ist ja ein Array... (Sry, hab kein rotes Kästchen gehabt...)