676 zufällige Schlüssel zuweisen

[rollstuhlfahrer]

Zitat von Informatik-LK:

Soll eigentlich auch so sein. Wenn ich rollstuhlfahrer's Idee nehme, dann wird AA anscheinend 91 zugewiesen...

Alao mal ehrlich:
In der ASCII-Code-Tabelle kommen alle Großbuchstaben hintereinaner und da sich die Schleifen nur 26 man ausführen, kann da nie eine Zahlenkombination rauskommen

Das fnktioniert dann etwa so:

Delphi-Quellcode:

type tschluessel= array[0..675] of string[2];

function Zuweisen: tschluessel
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;
Result := schluessel;
end;

procedure Anzeigen;
var schluessel: tschluessel;
    i,y: Integer;
begin
Randomize;
schluessel := Zuweisen;
i := Random(675) + 1;  // dass i nicht 0 sein kann

for y := 0 to 675 do
begin
   if i > StringGrid1.RowCount - 1 then
     i := 1;

   StringGrid1.Cells[1,i] := schluessel[y];
   i := i + 1;
end;
end;

rollstuhlfahrer