daily pastebin goal
20%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // uses RegularExpressions;
  2.  
  3. function ValidateEmail(const emailAddress: string): Boolean;
  4. var
  5.   RegEx: TRegEx;
  6. begin
  7.   RegEx := TRegex.Create('^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z0-9-.]*[a-zA-Z0-9]+$');
  8.   Result := RegEx.Match(emailAddress).Success;
  9. end;
RAW Paste Data
Top