(Delphi ActiveX) Validate a ULID

See more ULID/UUID Examples

Checks to see if a ULID is valid.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
dt: TCkDateTime;
ulid: WideString;
valid: Integer;

begin
dt := TCkDateTime.Create(Self);

// A ULID must be exactly 26 chars in length,
// and is composed of the following chars: 0123456789ABCDEFGHJKMNPQRSTVWXYZ
// Note: The ULID alphabet excludes the letters I, L, O, and U

// Here's a valid ULID
ulid := '01GRGCH4J88RECEN4D4VK4F629';
valid := dt.UlidValidate(ulid);
Memo1.Lines.Add('valid: ' + IntToStr(Ord(valid)));

// Here's an invalid ULID
ulid := '71GRGxx4Jr8RECEN4D4VK4F62!';
valid := dt.UlidValidate(ulid);
Memo1.Lines.Add('valid: ' + IntToStr(Ord(valid)));
end;