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