Problem mit statischem array und zufälliger ausgabe

[Fussball-Robby]

Außerdem sind ungerade Zahlen ja wohl (1,3,5,7,9) und gerade (0,2,4,6,8). Zudem hast du die länge von 'zwisch' nicht festgelegt, da wird noch ein Fehler kommen. Ach, und das hier:

Delphi-Quellcode:

for I := 0 to length(schluessel) - 1 do
  begin
  zwisch[i] := StrToInt(schluessel[i]);
    case i of //i hat beim ersten mal den Wert 0, dann 1, dann 2 usw...
      0: key[i] := (test1[random(3)]);
      1: key[i] := (test2[random(3)]);
    end;
  end;

Wenn überhaupt müsstest du das so machen:

Delphi-Quellcode:

case StrToInt(Schluessel[i]) of
[...]

Denn ansonsten liefert i dir jeweils einmal 0 und 1 zurück, und wird dann immer größer.

Mfg