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;

[mirage228]

Moin,

So sollts gehen:

Delphi-Quellcode:

var
  i: Integer;
begin
 for i := 1 to 36 do
 begin
   pztabelle[i].val := i - 1;
   if i < 11 then
     pztabelle[i].char := Chr(i + 47) else
   pztabelle[i].char := Chr(i + 54);
 end;

Die Schleife wird 36 mal durchlaufen. Für die ersten 10 Durchläufe (die Zahlen) werden jeweils die ASCII-Zeichen (48 - 57) in das Array gesetzt (Zahlen 0 bis 9) und ab dem 10. durchlauf die ASCII-Zeichen Nr. 65 - 90 (A - Z).

Hoffe das hilft dir weiter.

mfG
mirage228

[Michael80]

schaut doch schon mal gut aus

das is auf jedenfall ein Ansatz!

DANKE!!