Zitat von
Corpsman:
Das RunError gibts zwar, aber die ganzen Konstanten reInvalidOp .. müste man dann auch noch setzen.
Da muß ich nur mal in der Umrechnungstabelle nachsehn ... die Codes haben da nur andere Werte (und Byte statt SET)
Delphi-Quellcode:
Function Zufallszahl(Mathe: TMathe; Const von, bis: String): String;
Var d: String;
s, i: Integer;
Begin
If Mathe.Vergleich(von, bis) > 0 Then System.Error(reRangeError);
d := Mathe.Differenz(bis, von);
Mathe.Plus1(d);
SetLength(Result, Length(d) * 2 + 33);
s := RandSeed;
For i := Length(Result) downto 1 do Result[i] := Char(Random(10) + Ord('0'));
RandSeed := s;
Random;
i := Length(Result);
Result := Mathe.Produkt(Result, d);
Result := Mathe.Quotient(Result, Mathe.Potenz('10', IntToStr(i)));
Result := Mathe.Summe(Result, von);
End;
Function Zufallszahl(Const von, bis: MatheString): MatheString;
Var d, r: String;
s, i: Integer;
Begin
If von > bis Then System.Error(reRangeError);
d := bis - von + 1;
SetLength(r, Length(d) * 2 + 33);
s := RandSeed;
For i := Length(r) downto 1 do r[i] := Char(Random(10) + Ord('0'));
RandSeed := s;
Random;
Result := ((MatheString(r) * d) div Power('10', Length(r))) + von;
End;
muß aber noch etwas dran arbeiten
Wollte ich gestern eigentlich noch nicht Posten, weil ich dachte die Verteilung sei sch****,
aber anscheinend ist sie garnicht soooo schlecht
Delphi-Quellcode:
a: MatheString;
i, i2: Integer;
X:
Array of Integer;
S:
String;
Memo1.Lines.BeginUpdate;
Try
SetLength(X, 10001);
ZeroMemory(@X[0], Length(x) * SizeOf(Integer));
For i := 0
to 100000
do Begin
a := Zufallszahl('
1000', '
10000');
Memo1.Lines.Add(a);
i2 := Integer(a);
If (i2 < 1000)
or (i2 > 10000)
Then ASM INT 3
End;
Inc(X[i2]);
End;
Memo1.Lines.Add('
*******************');
S := '
';
For i := 0
to High(X)
do Begin
If i
mod 1000 = 0
Then Begin
Memo1.Lines.Add(S);
S := '
*** ' + IntToStr(i) + '
: ';
End;
If X[i] <= 26
Then S := S + Char(X[i] + Ord('
A'))
Else S := S + '
*';
End;
Memo1.Lines.Add(S);
Finally
Memo1.Lines.EndUpdate;
End;
Zitat:
1979
1998
5600
1460
5546
1454
7346
7035
7904
3672
3967
...
4897
6790
9679
1867
*** 0: AAAAAAAAAAAAAAAA...AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAA
*** 1000: NRMPHJXHKLOMKNII...LGMQKNMPNJLNMLPFLPGHMOJGPIQSOMJ NKNOGLGINMNNKH
*** 2000: NLLMMEMMHJGKMNLM...KJLLIOOMOJHJPIUJKNLFJGOHHKNJIOH PHJMJKJMQHNLJJ
*** 3000: JIJOQQHNMPNILGLL...LJKLIOIHJPJOKPNNOJLQMMKJOFNRQHH QJLJMNJEPFQODR
*** 4000: LKULFJIIQOMKONNG...OOJJNLIMFIQLKHHJEHGSFLJMXNLLHML OLFNPJHISNLKMK
*** 5000: IIJKKPPJHKILLKKG...QTNOJILMONJNLMNLNLNJNJNJRJHNOMI IQRKIPMKPPJILK
*** 6000: KKNHHMLKMMKFKPNK...KTNILNJPINIIKJINLJGQLNOLLMGKJKL JNLJNURLIOKOUM
*** 7000: UMNSNKNJOOJIJKSH...IJOELOJNNGGJNHLKNKLPJMRNQQJNHRO GLKKMKLMNLKIPM
*** 8000: OJMJHOJKKIHPMINK...GJQHHGFNMKNPNLLJKLKJJLIOQKIPLLF HJTMJQSMMIJOII
*** 9000: NRMIQNMMMILQJLNG...KNKJMLNTLPJOJKINLHQGMFMLIOMLQSG ONMIJPFHIQOQIL
*** 10000: A
A = kein Wert | B = ein Mal gefunden | C = 2 ....
und wie ich grad seh, ist die 10000 auch nicht besetzt, also
X := Zufallszahl('1000', '10000');
entspricht nur 1.000 <= X
< 10.000
ich füg also nich ein INC hinzu, werd' es einbauen und dann die nächsten Minuten irgendwann alles hochladen
hab auch grad noch 'nen Fehler in Mathe.Vergleich gefunden,
da stannd z.B.
If Length(a) < Length(a), was natrülich nicht so das gewünschte Ergebnis brachte
