Teste es =) Irgendwas ist hier ganz seltsam. Das verstehe ich ja auch nicht.
Delphi-Quellcode:
function randInt_MT19937(Range: LongInt): LongInt;
begin
Result := Int64Rec(Int64(Range) * genrand_MT19937).Hi;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
x: string;
begin
for i := 0 to 30 do
x := x + sLineBreak + IntToStr(randInt_MT19937(10));
ShowMessage(x);
end;
Code:
[Window Title]
Project1
[Content]
1
1
-4
3
-4
-4
3
-1
-3
3
-1
-3
-2
0
2
-5 ////////
-4
2
0
-1
-3
-2
-3
3
-3
5 ////////
2
-3
-4
3
3
[OK]