Delphi-GUID字符串生成

最新推荐文章于 2025-07-06 15:52:43 发布

原创最新推荐文章于 2025-07-06 15:52:43 发布 · 3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi

Delphi 常用方法同时被 2 个专栏收录

1 篇文章

订阅专栏

Delphi 基础

1 篇文章

订阅专栏

本文介绍了一种在Delphi中生成全局唯一标识符（GUID）的方法。通过使用CreateGUID和GUIDToString函数来创建并格式化GUID，最终返回一个去除大括号及连接符的字符串形式的GUID。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, sEdit;

type
TForm1 = class(TForm)
sEdit1: TsEdit;
sButton1: TsButton;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function GetGUID: string;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.GetGUID: string;
var
LTep: TGUID;
sGUID: string;
begin
CreateGUID(LTep); //更新GUID
sGUID := GUIDToString(LTep);
sGUID := StringReplace(sGUID, '-', '', [rfReplaceAll]); //去掉-线
sGUID := Copy(sGUID, 2, Length(sGUID) - 2); //去掉大括号
Result := sGUID;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
sEdit1.Text:= GetGUID;
end;

end.