Re: Problem mit statischem array und zufälliger ausgabe
Arbeite Dich mal durch die Grundlagentutorials durch ;)
Delphi-Quellcode:
procedure FooBar;
type TTrallalla = 1..10; const bla = 123; var blubb: integer; begin //Code end; |
Re: Problem mit statischem array und zufälliger ausgabe
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 |
Re: Problem mit statischem array und zufälliger ausgabe
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 :wink: ) zusammengepackt:
Delphi-Quellcode:
Beispielaufruf:
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;
Delphi-Quellcode:
Du musst natürlich im FormCreate noch Randomize aufrufen.
Edit2.Text:=GenerateKey(Edit1.Text);
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 :wink: [Edit] Fehler im Code :wink: [/Edit] |
Re: Problem mit statischem array und zufälliger ausgabe
okay danke !
|
Re: Problem mit statischem array und zufälliger ausgabe
Wieso eigentlich so umständlich? Man kommt auch ganz ohne die beiden Arrays aus:
Delphi-Quellcode:
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.
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 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 |
Re: Problem mit statischem array und zufälliger ausgabe
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 |
Re: Problem mit statischem array und zufälliger ausgabe
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 ;) |
Re: Problem mit statischem array und zufälliger ausgabe
[OT] Ich finds ja generell dämlich, mal fängt man bei 0 an zu zählen (Random, Arrays) und mal bei 1 (Strings [..]). :roll: [/OT]
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz