Pascal 中的短唯一 ID

什么是 Sqids？

Sqids 是一个开源库，可以从数字生成短的唯一标识符。这些标识符是 URL 安全的，可以编码多个数字，并且不包含常见的粗话。阅读更多 .

这就是它们的样子：

https://example.com/Lqj8a0

Pascal

快速编码和解码示例：

var
  Id: string;
  Numbers: TNumbers;
begin
  with TSqids.Create do
  try
    Id := Encode([1, 2, 3]); // '86Rf07'
    Numbers := Decode(Id); // [1, 2, 3]
  finally
    Free;
  end;
end;

如果 ID 太短，您可以将它们填充到一定长度：

var
  Id: string;
  Numbers: TNumbers;
begin
  with TSqids.Create(10) do
  try
    Id := Encode([1, 2, 3]); // '86Rf07xd4z'
    Numbers := Decode(Id); // [1, 2, 3]
  finally
    Free;
  end;
end;

通过洗牌字母表创建唯一的 ID：

var
  Id: string;
  Numbers: TNumbers;
begin
  with TSqids.Create('k3G7QAe51FCsPW92uEOyq4Bg6Sp8YzVTmnU0liwDdHXLajZrfxNhobJIRcMvKt') do
  try
    Id := Encode([1, 2, 3]); // 'XRKUdQ'
    Numbers := Decode(Id); // [1, 2, 3]
  finally
    Free;
  end;
end;