Array automatisch anlegen (der Übersicht halber)

[Michael80]

Hallo Leute,

ich habe mir ein Array gebastelt damit ich mit den entsprechenden values über eine Schleife rechnen kann.
das funktioniert auch alles so wie ich mir das vorgestellt habe, nur ist das ganze sehr unübersichtlich wie ihr sehen könnt.

Meine frage ist nun ob ich dem System nicht einfach sagen kann, das es mir das Array zur Laufzeit generieren soll.

so nach dem Motto, nimm die werte 0-35 und ordne diesen dann die Zahlen 0-9 sowie A-Z zu, und lege diese als array ab.

Delphi-Quellcode:

pztabelle: array [1..36] of T7064Record;
begin
pztabelle[1].char := '0';
pztabelle[1].val := 0;
pztabelle[2].char := '1';
pztabelle[2].val := 1;
pztabelle[3].char := '2';
pztabelle[3].val := 2;
pztabelle[4].char := '3';
pztabelle[4].val := 3;
pztabelle[5].char := '4';
pztabelle[5].val := 4;
pztabelle[6].char := '5';
pztabelle[6].val := 5;
pztabelle[7].char := '6';
pztabelle[7].val := 6;
pztabelle[8].char := '7';
pztabelle[8].val := 7;
pztabelle[9].char := '8';
pztabelle[9].val := 8;
pztabelle[10].char := '9';
pztabelle[10].val := 9;
pztabelle[11].char := 'A';
pztabelle[11].val := 10;
pztabelle[12].char := 'B';
pztabelle[12].val := 11;
pztabelle[13].char := 'C';
pztabelle[13].val := 12;
pztabelle[14].char := 'D';
pztabelle[14].val := 13;
pztabelle[15].char := 'E';
pztabelle[15].val := 14;
pztabelle[16].char := 'F';
pztabelle[16].val := 15;
pztabelle[17].char := 'G';
pztabelle[17].val := 16;
pztabelle[18].char := 'H';
pztabelle[18].val := 17;
pztabelle[19].char := 'I';
pztabelle[19].val := 18;
pztabelle[20].char := 'J';
pztabelle[20].val := 19;
pztabelle[21].char := 'K';
pztabelle[21].val := 20;
pztabelle[22].char := 'L';
pztabelle[22].val := 21;
pztabelle[23].char := 'M';
pztabelle[23].val := 22;
pztabelle[24].char := 'N';
pztabelle[24].val := 23;
pztabelle[25].char := 'O';
pztabelle[25].val := 24;
pztabelle[26].char := 'P';
pztabelle[26].val := 25;
pztabelle[27].char := 'Q';
pztabelle[27].val := 26;
pztabelle[28].char := 'R';
pztabelle[28].val := 27;
pztabelle[29].char := 'S';
pztabelle[29].val := 28;
pztabelle[30].char := 'T';
pztabelle[30].val := 29;
pztabelle[31].char := 'U';
pztabelle[31].val := 30;
pztabelle[32].char := 'V';
pztabelle[32].val := 31;
pztabelle[33].char := 'W';
pztabelle[33].val := 32;
pztabelle[34].char := 'X';
pztabelle[34].val := 33;
pztabelle[35].char := 'Y';
pztabelle[35].val := 34;
pztabelle[36].char := 'Z';
pztabelle[36].val := 35;