delphi获得唯一ID字符串

本文整理自网络，侵删。

 
//这是我三层开发中常用的一个函数，直接调用CreateSortID
uses System.Win.ComObj,System.RegularExpressions,System.StrUtils,System.SysUtils;

function CreateID(ll: Integer): string; // overload;
const
  pattern: string = '[-|{|}]';
var
  MyIDStr: string;
begin
  MyIDStr := CreateClassID;
  MyIDStr := TRegEx.Replace(MyIDStr, pattern, '');
  // MyIDStr := ansiReplaceStr(MyIDStr, '-', '');
  // MyIDStr := ansiReplaceStr(MyIDStr, '{', '');
  Result := AnsiRightStr(MyIDStr, ll);
end;

function CreateSortID: string;  
begin
  Result := FormatDateTime('yyyyMMddhhmmsszzz', now) + CreateID(13);
end;
 

相关阅读 >>

Delphi 软件版本称呼

Delphi 数据集转换json对象

Delphi getcomputername() getusername() 获取本机当前用户名

Delphi 10.3 断点全部失效

8086 汇编指令手册查询

Delphi将image存入mysql数据库

Delphi启动控制面板的方法列表

Delphi 文件大小 显示k kb mb gb tb

Delphi 如何从dll中检索导出函数的列表

Delphi 如何在toolbar中的toolbutton上显示文字

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi获得唯一ID字符串