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 打开win8及以上操作系统的系统已安装程序目录

Delphi获取jpg、gif、png等格式图片的大小（高度和宽度）

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi 去除右边指定字符

Delphi 在窗口作图的源代码

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi fdmemtable内存表操作

Delphi 正则提取txt中的email 数据

Delphi android实例-红外线操作(xe10.2+小米5)

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

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