将JavaScript（随机UID）代码转换为Delphi

Question

将JavaScript（随机UID）代码转换为Delphi

3

我试图将JavaScript代码转换为Delphi，但是失败了。JavaScript：

/* generate random progress-id */
var uuid = "";
var i;
for (i = 0; i < 32; i++) {
  uuid += Math.floor(Math.random() * 16).toString(16);
}

...以及它的输出：

a638aa8f74e2654c725fd3cdcf2927d3

我在 Delphi 中的尝试：

function uid: String;
var
  i: Integer;
begin
  for I := 0 to 31 do begin
    result := result + IntToStr(Floor(Random * 16));
  end;
end;

我对Delphi的了解有限，所以不知道该做什么。我希望能得到一些帮助并从中学习。

- user3424509

1

如果你想生成一个GUID，有更好的方法可以实现（例如：使用专门用于此目的的内置函数）：https://dev59.com/6nE95IYBdhLWcg3wdtqj#2300706。如果你需要以任何格式呈现，你可以使用基本字符串函数去掉连字符并将其转换为小写。 - J...

不，它不是GUID，它是一个随机的进度ID，我需要将其作为POST数据发送到某个网站。 - user3424509

2

在JavaScript中，toString(16)似乎将值转换为十六进制。如果是这种情况，您应该使用'IntToHex'而不是IntToStr。 - Graymatter

1

你说得对，谢谢兄弟。 - user3424509

1

@user3424509 - 它的形式完全相同（32个随机十六进制数字）。 - J...

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Peter Kostov · Accepted Answer

在Delphi中，函数的样子如下：

function uid: String;
var
  i: Integer;
begin
  for i := 0 to 31 do
    Result := Result + IntToHex(Random(16), 1);
end;

如果您需要一个小写的“id”——请使用AnsiLowerCase函数。

编辑

为了正确性，在上面的自制方法并不推荐——它只是JavaScript片段的字面翻译。它可能会导致冲突（而且肯定会）。

以下函数是推荐的：

function uid: String;
var
  myGuid: TGUID;
begin
  if Succeeded(CreateGUID(myGUID)) then
    Result := Format('%0.8X%0.4X%0.4X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X%0.2X',
      [myGUID.D1, myGUID.D2, myGUID.D3,
      myGUID.D4[0], myGUID.D4[1], myGUID.D4[2], myGUID.D4[3],
      myGUID.D4[4], myGUID.D4[5], myGUID.D4[6], myGUID.D4[7]]) else
    {TODO: some error processing - something bad happened}
end;

上面小写的"id"的提示在这里也有效。