versuchs mal so:
Delphi-Quellcode:
procedure Zuweisen;
var schluessel: array[0..675] of string[2]; // 675 + 1 (nullstelle) = 676
x, y: Integer; {fuer die Schleife}
zeichen1, zeichen2: integer; {zum zuweisen}
begin
Zeichen1 := ORD('A');
for x := 0 to 25 do
begin
Zeichen2 := ORD('A');
for y := 0 to 25 do
begin
schluessel[x*26+y] := Chr(Zeichen1) + Chr(Zeichen2);
Zeichen2 := Zeichen2 + 1;
end;
Zeichen1 := Zeichen1 + 1;
end;
// Soviel zum Zuweisen
end;
Das Ergebnis ist dann:
[0]: AA
[1]: AB
...
[26]: AZ
[27]: BA
...
rollstuhlfahrer
[EDIT] Fehler im Quelltext behoben [/EDIT]