(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
dt: HCkDateTime;
ulid: PWideChar;
valid: Boolean;

begin
dt := CkDateTime_Create();

// 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 := CkDateTime_UlidValidate(dt,ulid);
Memo1.Lines.Add('valid: ' + IntToStr(Ord(valid)));

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

CkDateTime_Dispose(dt);

end;