Validasi Email Pada Delphi 7

Data yg dimasukkan ke dalam suatu database sebaiknya merupakan data yg benar-benar telah tervalidasi. Sehingga nantinya data selalu akurat dan tidak terjadi hal-hal yg tidak diinginkan. Salah satu yg wajib hukumnya untuk di validasi yaitu data Email. Email memiliki struktur yg berbeda dari data lainnya. Berikut struktur dari data Email

nama_email@domain.com

Jika dilihat, maka email memiliki struktur unik sebagai berikut :

1. karakter '@'. selalu ditandai dengan karakter '@' setelah nama_email anda
2. Nama Domain. Setelah karakter '@' dilanjutkan dengan nama domain email anda.
3. karakter titik '.' (dot). Karakter ini selalu ada untuk memisahkan nama domain dengan jenis domainnya
4. jenis domainnya (.net, .com, .co.id ,,,). Jenis domain minimal adalah 2 karakter

Sesuai struktur diatas maka untuk membuat validasi email, kita gunakan aturan2 diatas sebagai validitasnya.

Langsung ke tahap teknis. Seperti biasa buka Delphi anda dan siapkan sebuah aplikasi baru.

1. Siapkan sebuah Edit (Tedit) dan sebuah Button (TButton)
2. Buka Unit anda (F12) kemudian masukkan function tambahan berikut ini bagian bawah Implementation

function IsValidEmail(const Value: String): boolean;

function CheckAllowed(const s: String): boolean;
var i: Integer;
begin
Result:= False;
for i:= 1 to Length(s) do // illegal char in s -> no valid address
if not (s[i] in ['a'..'z','A'..'Z','0'..'9','_','-','.'])then Exit;
Result:= true;
end; //end of function CheckAllowed

var i,len: Integer; namePart, serverPart: String;

begin // of IsValidEmail

Result:= False;
i:= Pos('@', Value);
if (i=0) or (Pos('..',Value) > 0) then Exit;
namePart:= Copy(Value, 1, i - 1);
serverPart:= Copy(Value,i+1,Length(Value));
len:=Length(serverPart);
// must have dot and at least 3 places from end,
// 2 places from begin
if (len<4) or (Pos('.',serverPart)=0) or (serverPart[1]='.') or (serverPart[len]='.') or (serverPart[len-1]='.') then Exit;
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);

end; //end of function IsValidEmail

3. Double Click pada button, atau masuk ke Events - Onclick. Masukkan perintah berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsValidEmail(edit1.Text) then showmessage ('Email anda Benar')
else showmessage('Email anda salah');
end;

Penjelasan: (Setelah user memasukkan email pada Tedit dan kemudian melakukan klik pada button)

1. Prosedur ButtonClick akan berjalan (point 3 diatas), dan melakukan pemanggilan function IsValidEmail
2. Email anda ditampung dalam variabel 'Value' dalam function tsb.
3. Value di cek apakah terdapat karakter '@'
4. Value di cek apakah terdapat karakter '.' (dot)
5. Sistem melakukan cek pada susunannya
6. Sistem melakukan cek huruf (apakah input yg diberikan sesuai) pada function CheckAllowed
7. Hasil akhirnya adalah boolean (True/False)
8. Jika hasil akhirnya adalah True, maka sistem akan menampilkan pesan 'Email anda benar', dan sebaliknya jika hasilnya False maka sistem akan menampilkan pesan 'Email anda salah')

Semoga bermanfaat buat semua..

Powered by ScribeFire.