Membedakan Angka dan Huruf

Halo para sahabat delphi, kali ini saya akan sedikit membahas tentang perbedaan antara angka dan huruf pada delphi. Maksudnya ? Jika kita mengetik keperluan saja angka pada edit text maka yang akan keluar atau muncul hanya ANGKA. Sedangkan untuk jika keperluan kita hanya mengetik huruf saja maka yang dimunculkan adalah HURUF.
Oke tidak usah berbasa basi ria mari kita ulas berikut ini :

1. Buka Software atau aplikasi delphi
2.  buat procedure angka / huruf

    procedure AngkaSaja(Sender: TObject; var Key: Char);
    procedure HurufSaja(Sender: TObject; var Key: Char);

3. Masukkan isi procedure seperti gambar di bawah ini 

procedure TForm1.AngkaSaja(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,#32]) then
  begin
  key:=#0;
  showmessage('inputan hanya angka bro..');
  end;
end;

procedure TForm1.HurufSaja(Sender: TObject; var Key: Char);
begin
if not (key in['a'..'z','A'..'Z',#8,#13,#32]) then
  begin
  key:=#0;
  showmessage('inputan hanya huruf bro..');
  end;
end;

4. Buat 2 edit text seperti gambar di bawah ini  

5.  Simpan project dengan cara file - save project as - OK
6. Compile project delphi
7. Sekian dan terima kasih. Selamat mencoba.

Membedakan Angka dan Huruf 2015-05-28T11:41:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown