Arsip: Validasi Angka Pada Edit


by genik in TipDanTrik more 11 years ago 3581
Seringkali pada sebuah form inputan terdapat masukan data berupa data integer, float, currency, dan tipe data numerik lainnya. Kita dapat menggunakan komponen Edit pada Palete Standard. Secara default komponen Edit dapat menerima masukan data apapun seperti Huruf, Angka, dan karakter lainnya. Tetapi bagaimana jika data yang akan dimasukkan hanya angka saja, selain angka akan ditolak?

Ikuti Langkah berikut:

1. Letakkan komponen edit pada form,

2. Double Klik pada komponen edit atau Double Klik pada event OnChange,

3. Ketik Code berikut pada Event OnChange





var
input : integer;
begin
try
input := StrToInt(Edit1.Text);
except
Edit1.Text := '';
end;
end;




4. Running.



Setelah running, Edit hanya akan menerima angka yang bertipe integer saja, jika anda memasukkan Huruf maka Edit akan diisi dengan karakter '' (kosong).
Untuk kebutuhan data numerik lainnya anda hanya perlu mengganti tipe data saja sesuai kebutuhan, jika menggunakan tipe data real, pada blok Try ganti StrToInt menjadi StrToFloat.


Simpel kan, saya cuma memanfaatkan Blok Try Except untuk menangkap jika ada eksepsi. Semoga dapat membantu rekan2 dalam mem-validasi data masukkan.



~genik~

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com