Batasi panjang input karakter edit

Hahahaaa tidak tau mau nulis yang mana soalnya kalau yang advance nampaknya akan panjang-panjang, oke aku bagi trik yang simple aja sekaligus buat kuota tulisan April yang keburu Mei, kali ini saya mau berbagi gimana membatasi jumlah karakter maksimum dan minimum dari inputan yang kita entry, langsung cekibrot aja bro…

Saya coba buat fungsi yang membatasi input karakter (ini di komponen TEdit loh ya), biasa kita seting di bagian MaxLenght supaya membatasi max karakter inputan, sekarang coba kita buat lebih “Hidup”, digunakan untuk apa sih prosedur nyubi ini?? saya biasa gunakan biasanya untuk pembatasan maksimum/minimum pembuatan nama user pengguna aplikasi (red: username) juga pada pembuatan batas pada kata sandinya (red: password), kan sering tuh di web atau dimana pernah liat kalo kita registrasi sesuatu, ada notifikasi error misal: “maaf minimum karakter 6 digit” atau sebagianya….

Nah sekarang coba kita sedikit perindah inputan kita kalu memang membutuhkan fungsi ini, langsung saja sadur kode di bawah ini, silahkan modifikasi sesuai kebutuhan, sebagai catatan kode ini digunakan untuk komponen TEdit silahkan dimodifikasi kalau ingin di implementasikan di komponen lain seperti TDBEdit, sEdit dan lain-lainya, berikut kodenya

code minimum character :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure MinChar(Kata:TEdit; Panjang:Integer); var i:integer; begin  i:=length(Kata.Text);  if Kata.Text='' then  Exit;   if i < panjang then  begin  Kata.Clear;  Messagedlg('Error...'#13'Panjang Minimum '+IntToStr(panjang)+' Karakter..', mtError,[mbOk], 0);  Kata.SetFocus;  Abort;  end; end;

code maximum character :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure MaxChar(Kata:TEdit; Panjang:Integer); var i:integer; begin   i:=length(Kata.Text);   if Kata.Text='' then   Exit;     if i > panjang then   begin   Kata.Clear;   Messagedlg('Error...'#13'Panjang Maksimum '+IntToStr(panjang)+' Karakter..', mtError,[mbOk], 0);   Kata.SetFocus;   Abort;   end; end;

dan ini sedikit SS nya supaya ga dibilang HOAX (no pict) :D hahahahay

untuk penggunaan saya biasa terapkan MinChar di OnExit dan MaxChar di OnChange , :Dsilahkan rubah juga sesuai selera pokoknya Halal dan sah saja…
dan untuk contoh dan fullcode nya silahkan download disini.