Question

我想在delphi中编写代码，我试过这样做但没有运气

$uid = $i=0; while($i<12){ $i++;}
$uid += floor(rand() * 10);

它生成一个像这样的随机整数106128013013

如何在delphi中完成？

我从这里拿了PHP代码

https://code.google.com/p/rapidleech36b/source/browse/trunk/upl/asixfiles.com_free.php?spec=svn130&r=130

//编辑

此代码仅生成8位数字，仅生成最后一位数字

while i < 12 do
begin
inc(i);
end;


uid := uid + floor(random * 10);

我需要这个号码才能将文件上传到xfilesharing pro脚本，就像php中的代码一样

我在自己的脚本中找到了javascript代码

 var UID='';
    for(var i=0;i<12;i++)UID+=''+Math.floor(Math.random() * 10);

Answer 1

基本的“伪代码”转录就是这个

uid = 0
i = 0
while i < 12
begin
  i = i + 1
end
uid = uid + floor(rand * 10)

PHP rand函数的描述在这里：http://www.php.net/manual/en/function.rand.php

floor功能的说明如下：http://cz1.php.net/manual/en/function.floor.php

对我而言，这段代码看起来只是调用一个生成随机数的库函数。 Delphi还有一个Rand函数 - 使用你的帮助文件（我不再使用它了）。

无论你想在Delphi中编写它的原因是什么 - 在引用的代码中有没有隐藏的宝石更糟糕的麻烦

修改 JavaScript代码的伪代码是

UID := '' for i := 1 to 12 begin UID := UID + Math.floor(Math.random() * 10) end

Math.random的解释在https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Math/random

Math.floor的解释在https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Math/floor

再次 -
中没有隐藏的魔法
修改

因此代码生成12个随机数字的字符串。关于如何在Delphi中生成随机字符串的一些提示可以在这里找到：Generate three random characters in Delphi

简单的PHP代码到delphi代码

1 个答案: