DELPHI生成32位随机字符串（数字和大写字母混合）

最新推荐文章于 2025-09-13 22:22:30 发布

原创最新推荐文章于 2025-09-13 22:22:30 发布 · 4.3k 阅读

0 ·

CC 4.0 BY-SA版权

DELPHI函数类专栏收录该内容

57 篇文章

订阅专栏

本文详细介绍了如何使用C++编程语言通过CoCreateGUID函数生成全局唯一标识符(GUID)并将其转换为可读字符串的过程。通过实例演示，帮助开发者掌握GUID的基本操作。

部署运行你感兴趣的模型镜像

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxLookAndFeels, ActiveX,
  cxLookAndFeelPainters, Vcl.Menus, dxSkinsCore, dxSkinOffice2013White,
  Vcl.StdCtrls, cxButtons;

type
  TForm1 = class(TForm)
    cxbtn1: TcxButton;
    procedure cxbtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxbtn1Click(Sender: TObject);
var
  I: Integer;
  sGUID  : string;
  TmpGUID: TGUID;
begin
  for I := 0 to 10 do
  begin
    if CoCreateGUID(TmpGUID) = S_OK then
    begin
      sGUID := GUIDToString(TmpGUID);
      sGUID := Copy(StringReplace(sGUID, '-', '', [rfReplaceAll, rfIgnoreCase]), 2, 32);
    end
    else
      ShowMessage('Create GUID error!');
    ShowMessage(sGUID);
  end;
end;
end.

您可能感兴趣的与本文相关的镜像