Delphi ActiveX

Generate UUID

See more ULID/UUID Examples

Generates a version 4 UUID, using either uppercase or lowercase hex. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb: TChilkatStringBuilder;
lowercase: Integer;

begin
sb := TChilkatStringBuilder.Create(Self);

// Generate a lowercase UUID.
lowercase := 1;
sb.AppendUuid(lowercase);
Memo1.Lines.Add(sb.GetAsString());

// example: edb1bb24-e9be-4ada-98bd-c2d893f29f55

lowercase := 0;
sb.Clear();
sb.AppendUuid(lowercase);
Memo1.Lines.Add(sb.GetAsString());

// example: 338EAF28-631E-4303-BE27-A8D80E9191CB
end;