July 24, 2024

Validasi Input Angka Di Delphi

1 min read

Validasi adalah pengecekan kebenaran input pada form. Validasi diperlukan untuk mencegah error program dan meminalisir kesalahan operator dalam menjalankan aplikasi yang telah dibuat. Banyak sekali validasi yang bisa dibuat di program, namun pada tutorial ini kita akan membahas validasi input angka dan validasi untuk cek entri yang masih kosong sebelum data disimpan.

Validasi angka digunakan untuk memvalidasi bahwa data yang boleh diinput hanya data angka (contoh input harga dan jumlah). Sedangkan validasi input digunakan untuk mengecek/memastikan tidak ada data yang kosong sebelum data disimpan.  Tahapan pembuatan validasi Input ANGKA sebagai berikut :

Langkah 1

Buat aplikasi baru (New VCL) kemudian tambahkan komponen pada form seperti gambar dibawah ini:

validasi

Langkah 2

Membuat validasi angka untuk Harga & Jumlah.

1. Membuat validasi input angka harga

validasi2

  • Klik TEdit Harga kemudian klik Event pada Object Inspector
  • Selanjutnya klik OnKeyPrekss (klik 2x ditengah kotak)
  • Tuliskan kode dibawah ini :

[sourcecode]

procedure TForm5.Edit4KeyPress(Sender:TObject;var Key:Char);
begin
if not ( key in [‘0’..’9′, #8]) then
Begin
Key:= #0;
MessageDlg(‘Input Tidak Valid.!!’,mtError, [mbOK],0);
exit;
end;
end;

end.

[/sourcecode]

2. Untuk validasi TEdit Jumlah caranya sama dengan validasi TEdit Harga dengan coding yang sama seperti code diatas.

 

Langkah 3

Jalan program dan jika data yang dimasukkan pada input Harga atau Jumlah bukan angka maka akan muncul pesan seperti form dibawah ini.

validasi3

Untuk validasi / cek entri kosong sebelum disimpan dapat dilihat pada Tutorial Validasi Cek Input.

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.