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