Validasi eMail dengan Delphi

Saat penyimpanan sebuah data, terkadang kita membutuhkan email yang sesuai format, sehingga diperlukan sebuah fungsi untuk mengecek apakah email tersebut valid atau tidak.
Hal ini dilakukan untuk menghindari pengisian asal-asal oleh pengguna. Terlepas apakah email tersebut benar-benar ada atau hanya rekayasa.

Untuk email yang harus benar-benar terdaftar kita dapat melakukan pengecekan dengan mengirim sebuah link aktifasi ke email tersebut, dengan demikian kita dapat memastikan apakah email tersebut benar-benar terdaftar atau tidak. Namun pada tutorial kali ini saya hanya akan memberikan fungsi pengecekan email sesuai format, tanpa melakukan pengecekan terdaftarnya email tersebut.
Validasi ini dapat digunakan dengan regex, namun Anda harus mengincludekan unit baru ke delphi/project Anda, oleh karena itu kali ini saya hanya akan menggunakan fungsi biasa tanpa memerlukan unit khusus.
Email yang dianggap valid pada tutorial saya kali ini adalah email yang terdapat yyy@domain.xxx, di sini saya membatasi karakter minimal pada yyy dan domain, sehingga jika Anda mengisi y@d.xxx akan menghasilkan email yang tidak valid.
Langsung saja, tuliskan (copy) kode berikut ke unit Anda:

function emailCheck(email : string) : boolean;
begin
  result := false;
  if (AnsiPos('@',email) > 2) and
     (AnsiPos('.',copy(email,AnsiPos('@',email) + 1,length(email))) > 2) then
      result := true;
end;

Kemudian, untuk melakukan pengecekan saat menyimpan Anda hanya perlu menuliskan kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (emailCheck('fuad.arradhi@yahoo.com')) then
    showmessage('Email Anda Valid');
end;

Demikian tutorial melakukan validasi email pada delphi, semoga bermanfaat.

Terbaru di blog ini:

Mungkin Anda juga ingin membaca:

Suka artikel ini? Bagikan :

Facebook Google+