首页 > 其他好文 > 详细

产生不重复的随机数TGUID

时间：2014-07-29 21:06:13 阅读：229 评论：0 收藏：0 [点我收藏+]

标签：http os for cti div ar line new

uses ActiveX;

procedure TForm1.BtnNewClick(Sender: TObject);
var
ID: TGUID;
S: string;
begin
if CoCreateGuid (Id) = s_OK then
begin
s := GUIDToString (Id);
Memo1.Lines.Add (S);
end;
end;

来自为知笔记(Wiz)

产生不重复的随机数TGUID,布布扣,bubuko.com

产生不重复的随机数TGUID

标签：http os for cti div ar line new

原文地址：http://www.cnblogs.com/xe2011/p/3875970.html

踩

(0)

赞

(0)

举报

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

更多

友情链接

兰亭集智国之画百度统计站长统计阿里云 chrome插件新版天听网

关于我们 - 联系我们 - 留言反馈

© 2014 mamicode.com 版权所有联系我们:gaon5@hotmail.com

迷上了代码！