Pascal (Lazarus/Delphi)

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.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.CkDateTime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  dt: TCkDateTime;
  ulid: string;
  valid: Boolean;

begin
  dt := TCkDateTime.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 := dt.UlidValidate(ulid);
  WriteLn('valid: ' + valid);

  //  Here's an invalid ULID
  ulid := '71GRGxx4Jr8RECEN4D4VK4F62!';
  valid := dt.UlidValidate(ulid);
  WriteLn('valid: ' + valid);


  dt.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.