Regular Expression (RegEx) dengan Delphi

Udah lama gak posting... biar gak lupa ane simpen diblog aja.. :D

Berikut ini contoh aplikasi sederhana penggunaan Regular Expression dengan Delphi untuk mengecek validasi alamat email yang ditulis. Pada contoh aplikasi juga ane kasih fungsi untuk mengecek validasi nomor telepon yang ditulis. Oke langsung saja...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses RegExpr;

{$R *.dfm}

function IsAnEmail(Addr:String):Boolean;
begin
  with TRegExpr.Create do
  begin
    Expression := '^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]+)$';
    Result := Exec(Addr);
    Free;
  end;
end;

{
function IsAnPhoneNumber(PhoneNumber:String):Boolean;
begin
  with TRegExpr.Create do
  begin
    Expression := '([+][0-9]|[0][0-9])';
    Result := Exec(PhoneNumber);
    Free;
  end;
end;
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  
  if IsAnEmail(Edit1.Text) then
  ShowMessage('Email OK')
  else
  ShowMessage('Invalid email address');

  {
  if IsAnPhoneNumber(Edit1.Text) then
  ShowMessage('Phone Number OK')
  else
  ShowMessage('Invalid phone number');
  }
end;

end.

Screenshot