unit CommonFunctions;

interface

type
  TCommonFunctions = class
  private
  public
    class function VerkorteDnaCode(DnaCode: string): string;
    class function IsKaderdeurLocatie(GescandeInput: string): boolean;
    class function IsFrameId(GescandeInput: string): boolean;
  end;


implementation

uses
  System.RegularExpressions, System.SysUtils;
{ TCommonFunctions }

class function TCommonFunctions.VerkorteDnaCode(DnaCode: string): string;
begin
  result := Copy(DnaCode,2,5);
end;

class function TCommonFunctions.IsFrameId(GescandeInput: string): boolean;
begin
  result := false;
  if TRegEx.IsMatch(UpperCase(GescandeInput),'^O1[12]\d{7}$') then
    result := true;
end;

class function TCommonFunctions.IsKaderdeurLocatie(GescandeInput: string): boolean;
begin
  result := false;
  if TRegEx.IsMatch(UpperCase(GescandeInput),'10[kK]..[tT]0.') then
    result := true;
end;

end.