delphi - 十六进制到十进制转换器 (ESN Algo)

Question

已关闭。此问题不符合 Stack Overflow guidelines 。目前不接受答案。

---

要求提供代码的问题必须表现出对所解决问题的最低限度的了解。包括尝试的解决方案、为什么它们不起作用以及预期结果。另请参阅:Stack Overflow question checklist

已关闭 9 年前。

Improve this question

如何进行像本页这样的转换？ http://www.esnconverter.com/index.php?esn=88888888

我尝试这样做，但结果是错误的

procedure TForm1.btn1Click(sender: TObject);
begin
memo1.Lines.Add (IntToStr(StrToInt('$'+Edit1.text)));
end;

Answer 1

根据Wikipedia

For the decimal format the first three digits are the decimal representation of the first 8 bits (between 000 and 255 inclusive) and the next 8 digits are derived from the remaining 24 bits and will be between 00000000 and 16777215 inclusive

Memo1.Lines.Add( Format('%.3d%.8d',
  [StrToInt(('$' + Copy(Edit1.Text, 1, 2))),
  StrToInt(('$' + Copy(Edit1.Text, 3, 6)))]));

上面给出了与该页面相同的输出，但是，我对 ESN 一无所知。