Kalo di posting sebelumnya saya sempat membahas tentang cara validasi form html dengan javascript, kali ini saya akan berbagi tentang cara validasi input di Delphi. Kenapa saya katakan cara cepat, karena dengan cara ini kita tidak perlu lagi mengetikkan script validasinya untuk tiap-tiap field. Untuk lebih jelasnya, sebagai contoh kita buat sebuah form dengan empat komponen Edit dan satu Button didalamnya. Misalnya dari keempat field tersebut ada tiga field yang wajib diisi. Ganti properti “tag” dari ketiga komponen Edit tersebut menjadi 1, dan yang lainnya biarkan tetap 0. Hal ini bertujuan untuk membedakan mana field yang wajib diisi dan mana yang tidak. Setelah itu ketikkan script dibawah ini. Fungsi inilah yang akan digunakan untuk validasi input ketika tombol submit di klik.

function inputKosong(frm:TForm):boolean;
var i: integer;
begin
  result:=false;
  with frm do begin
    for i:=0 to ComponentCount-1 do begin
      if (Components[i] is TEdit)and(Components[i].Tag = 1) then
        if TEdit(Components[i]).Text = '' then result:=true;
    end;
  end;
end;

Perhatikan pada fungsi diatas terdapat parameter “frm” yang bertipe “TForm”. Isikan nama form dimana field-field yang akan di-validasi untuk parameter ini. Sebagai contoh, tambahkan script berikut pada event “onClick” tombol submit anda.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if inputKosong(self) then begin
  showmessage('Masih ada field yang kosong');
  exit;
 end;
 showmessage('Data disimpan');
end;

Pada contoh diatas, parameter “self” digunakan untuk validasi pada form itu sendiri. Contoh source codenya bisa di download disini.

Ok sekian dulu tips ringan dari saya kali ini. Selamat mencoba