我应该改变什么来获得积极的结果？

Question

这是XOR-Shift算法的Delphi代码，返回正值和负值：

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  y : UInt64;
 begin
   y:= 2463534242;
   for i := 1 to 1000 do
    begin
       y := y xor (y shl 13);
       y :=(y shr 17);
       y := y xor (y shl 5);
       ListBox1.Items.Add(IntToStr(y));
    end;
  end;

我应该改变什么才能得到积极的结果？

Answer 1

使用UintToStr代替IntToStr，例如：

ListBox1.Items.Add(UintToStr(y));