Arsip: Validasi Angka Pada Edit

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~