2 - Cara Supaya Edit Text Delphi Hanya Bisa Diinputkan atau Diisi Angka

Delphi - Saat menginputkan data tentunya ada data hanya berupa bilangan saja, jika inputan tercampur dengan karakter huruf abjad ataupun karakter lain maka akan error jika dilakukan proses perhitungan. Untuk menghindari hal tersebut kita perlu membuat kode filter agar hanya bisa terinput angka saja. Letakkan kode berikut pada Edit Text yang ingin difilter, letakkan pada Events OnKeyPress (Events pada saat di edit text ada tombol keyboard yg ditekan)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8,#13])  then  Key:=#0; //biar inputan hanya angka saja
end;

Penjelasan kode : jika kunci (tombol keyboard) tidak termasuk karakter angka 0 s/d 9, #8 dan #13 maka edit text kosong

#8 adalah kode ASCII untuk tombol Tab
#13 adalah kode ASCII untuk tombol Tab

Semoga bermanfaat

Download Contoh Program & Source Code

• Tweet
• Share