![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
interface
文章平均质量分 67
hnxxcxg
这个作者很懒,什么都没留下…
展开
-
interface's demo
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } publi原创 2010-11-01 21:35:00 · 258 阅读 · 0 评论 -
生成GUID
uses activex;procedure TForm1.Button1Click(Sender: TObject);var I : Integer; sGUID : string; TmpGUID: TGUID;begin for I := 0 to 10 do begin if CoCreateGUID(TmpGUID) = S_OK then sGUID := GUIDToString(TmpGUID) else ShowMessage('Create转载 2010-11-25 07:18:00 · 307 阅读 · 0 评论 -
比较GUID是否相等
<br />1、CompareMem(@guid1, @guid2, SizeOf(TGUID))<br />最开始时想到的方法。<br />查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。<br />TGUID = packed record<br />D1: LongWord;<br />D2: Word;<br />D3: Word;<br />D4: array[0..7] of Byte;<br />end;<br /><br /原创 2010-11-25 07:30:00 · 1105 阅读 · 0 评论