676 zufällige Schlüssel zuweisen

[rollstuhlfahrer]

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]