Problem mit statischem array und zufälliger ausgabe

[DeddyH]

Arbeite Dich mal durch die Grundlagentutorials durch

Delphi-Quellcode:

procedure FooBar;
type TTrallalla = 1..10;
const bla = 123;
var blubb: integer;
begin
  //Code
end;

[5etH]

okay habs schon vielen dank es funktionniert ^^
nein ich dache es funzt net weil er nicht in die procedur ist hatte nur debugger barke eins zu hoch gesetzt

[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]

[5etH]

okay danke !

[Zwoetzen]

Wieso eigentlich so umständlich? Man kommt auch ganz ohne die beiden Arrays aus:

Delphi-Quellcode:

function generateKey(Input: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Input) do
    Result := Result + IntToStr(2 * (Random(5)) + StrToInt(Input[I]));
end;

Eine Gerade Zahl erhält man, indem man 2*n rechnet (bzw. 2*n + 0), wobei n eine Zahl von 0 bis 4 ist, um nur einstellige Zahlen zu erwischen.
Eine Ungerade Zahl erreicht man durch 2*n + 1.
Es wird also einfach das Zeichen aus dem String erst in einen integer umgewandelt, danach zu den 2*n dazuaddiert (so erhält man die Ziffer) und anschließend (zurück als String) an das bestehende Ergebnis angehangen.

Random(5) erzeugt dabei die Zahl zwischen 0 bis 4. (Randomize nicht vergessen im FormCreate)

PS: Code nicht getestet

EDIT: Random angepasst

[Fussball-Robby]

Stimmt, so gehts auch. Aber 2 * (Random(5) - 1) + StrToInt(Input[I]) stimmt nicht so ganz. Random(5) ergibt höchstens 4. Jetzt ziehst du 1 ab, also höchstens 3. Das mal 2 ergibt 6, da kommt dann gegebenenfalls 1 dazu, ergibt insgesamt 7. Geht also irgendwie nicht. Das -1 muss weg, dann stimmt es.

Mfg

[Zwoetzen]

Da war ich mir nicht sicher, ob Random(5) nun eine Zahl in [0...4] oder in [1...5] erzeugt. Da ich mir das auch iwie nicht merken kann, verwende ich meist Trunc(5 * Random), da weiß ich, da weiß ich, dass ich dann [0...4] rauskriege ^^

Habs oben editiert

[Fussball-Robby]

[OT] Ich finds ja generell dämlich, mal fängt man bei 0 an zu zählen (Random, Arrays) und mal bei 1 (Strings [..]). [/OT]