在Delphi中获得唯一32位长字符串

2021-04-30 03:26

阅读：664

标签：字符 replace 位长 var eal bsp temp UI gui

function GetGUID: string;
var
vGUID: TGUID;
vTemp:string;
begin
if S_OK = CreateGuid(vGUID) then
begin
vTemp := GUIDToString(vGUID);
//去掉字符串中的{,-字符
vTemp:=StringReplace(vTemp,‘-‘,‘‘,[rfReplaceAll]);
vTemp:=StringReplace(vTemp,‘{‘,‘‘,[rfReplaceAll]);
vTemp:=StringReplace(vTemp,‘}‘,‘‘,[rfReplaceAll]);
end;
Result:=vTemp;
end;

在Delphi中获得唯一32位长字符串

标签：字符 replace 位长 var eal bsp temp UI gui

原文地址：http://www.cnblogs.com/railgunman/p/7811842.html

上一篇：windows安装scrapy

下一篇：windows vs 编译tesseract-ocr

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：在Delphi中获得唯一32位长字符串
文章链接：http://soscw.com/index.php/essay/80248.html

亲，登录后才可以留言！

在Delphi中获得唯一32位长字符串

评论

热门文章

推荐文章

最新文章

置顶文章