简单的PHP代码到delphi代码

Question

I would like to write that code in delphi , i have tried to do it but no luck

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

which it generate a random integer like this 106128013013

how it can be done in delphi ??

i took php code from here

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

// edit

this code generate only 8 digits and only last number changes

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


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

i need this number for uploading files to xfilesharing pro script like the code in the php

i found javascript code in the script it self

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

Answer 1

Basic "pseudo-code" transcription is this

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

Description of the PHP rand function is here: http://www.php.net/manual/en/function.rand.php

Description of the floor function is here: http://cz1.php.net/manual/en/function.floor.php

To me it looks like the piece of code just calls a library function that generates random number. Delphi also has a Rand function - use your help file (I don't have it anymore).

Whatever is the reason why you want to write it in Delphi - there is no hidden gem in the referenced code worse the trouble

EDIT: pseudo-code of the JavaScript code is

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

Explanation of Math.random is here https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Math/random

Explanation of Math.floor is here https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Math/floor

Again - there is no hidden magic inside

EDIT:

So the code generates string of 12 random digits. Some tips on how to generate string of random characters in Delphi can be found here: Generate three random characters in Delphi