Problem mit statischem array und zufälliger ausgabe

[Fussball-Robby]

Doch, müssen sie. Du machst dir mit den ganzen Arrays aber das Leben schwer. Ich hab hier grade nichts zu tun,also hab ich das ganze mal in eine Funktion (ohne Arrays ) zusammengepackt:

Delphi-Quellcode:

Function GenerateKey(Inp:String):String;
Var I:Integer;
Const Ungerade: Array[0..4] Of String = ('1','3','5','7','9');
      Gerade: Array[0..4] Of String = ('0','2','4','6','8');
Begin
  Result:='';
  For I:=1 To Length(Inp) Do
  Begin
    If Inp[I]='0' Then
    Begin
      Result:=Result+Ungerade[Random(5)];
    End Else
    If Inp[I]='1' Then
    Begin
      Result:=Result+Gerade[Random(5)];
    End;
  End;
End;

Beispielaufruf:Edit2.Text:=GenerateKey(Edit1.Text); Du musst natürlich im FormCreate noch Randomize aufrufen.

Mfg

Ps.:Ich rate dir aber auch, dir erstmal grundlegende Tutorials anzuschauen. Denn wenn du größere Projekte so umständlich lösen willst, dann, das kann ich dir sagen, wird das nichts



[Edit] Fehler im Code [/Edit]