Cara agar data tidak bisa di masukkan huruf atau angka pada Delphi

Assalamu’alaikum Wr Wb
Kali ini saya akan membahas cara agar data tidak bisa diinputkan angka atau huruf. kita tau dalam perhitungan, data yang harus kita masukkan harus berupa angka, agar bisa dieksekusi dengan rumus matematika. Kadang kita tidak sengaja menekan tombol huruf sehingga kadang membuat program jadi eror, terutama kalau rumusnya kta masukkan di events OnChange,  Untuk scriptnya dapat kalian tambahkan di on keypress. Adapun scriptnya adalah sebagai berikut:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['0'..'9',#8,chr(13)]) then
  key:=#0;
//program fungsi enter
  if (key=chr(13)) then
 Edit2.SetFocus;
end;

Jadi dengan script di atas, tombol di keyboard yang bisa kita ketikkan adalah adalah angka 0-9(‘0’..’9′), Hapus(#8) dan Enter(CHR(13)).
Untuk script agar tidak bisa diinputkan huruf adalah sebagai berikut:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['A'..'Z','a'..'z',' ',#8,chr(13)]) then
  key:=#0;
  if (key=chr(13)) then
 Edit2.SetFocus;
end;

Jadi dengan script di atas, tombol di keyboard yang bisa diketikkan Hanya huruf besar dan kecil,spasi, hapus dan enter.

Nah itu tadi cara agar data yang akan kita inputkan hanya bisa angka saja, atau huruf saja. Semoga bermanfaat, apabila ada pertanyaan dapat ditanyakan lewat komentar. Terimakasih atas kunjunganya apabila ada salah kata saya mohon ma’af, tetap semangat dan jangan mudah menyerah..

Wassalamu’alaikum Wr Wb