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获取其他进程中listbox和combobox的内容

Delphi 命令行程序调用单元函数

Delphi idhttp友好错误信息的捕获

Delphi mscomm控件串口收发程序

Delphi 判断字符串是否相同

idtcpclient和idtcpclient 主要属性和方法

Delphi 字符串加密与解密函数

屏幕抓取Delphi

Delphi 运行带参数的程序等待其并获取结果

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

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