中国程序员联盟 正在重新改版中ing 不便之处还请见谅 改版后将内容涉及java delphi .net php 收藏本站 | 站内搜索 | 会员登陆 | 文章发布 | 捐助本站  
 
  首页 | 数据库开发 | 网络通讯 | 多线程 | 多媒体开发 | 图像处理 | 程序人生 | 系统函数 | 控件开发 | Web服务
 
  当前位置：笨鱼delphi技术网>数据库开发>代码分析>文章内容

delphi 产生不重复的随机数

来源：网络 关于：轶名 发布时间：2007-07-02   [收藏] [推荐]
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;

[浏览： 次]   
上一篇：delphi COM/DCom中如何传递数组   下一篇：delphi COM对象选择服务器模式的全面描述
[收藏] [推荐] [返回顶部] [打印本页] [关闭窗口]  
    评论加载中…
google adsense热点文章
·delphi Delphi_动态数组介绍----Delphi
·delphi 检查IP地址
·delphi DBExpress 提高
·delphi 复制Excel列到二维数组
·delphi Delphi_VCL消息处理机制的内幕
·delphi 如何在DELPHI里调用MS office
·delphi 缓冲池
·delphi 在WORD文档里添加页签
·delphi MIDAS——多层分布式应用程序服
·delphi Asta多层应用实现
·delphi Datamodule的应用方式
·delphi DBExpress 入门
     delphi技术网 | firefox 下载 | Avant Browser下载 | dedecms 技术网 | drupal 爱好者 | php 技术网
  Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
  
程序员联盟 | delphi Java .net|QQ:707102932