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]