Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Mengecek Variabel Angka Atau Bukan ...

Sering kita membutuhkan validasi untuk mengecek apakah variabel yang kita inputkan termasuk angka atau bukan. Maksudnya alpabet atau numerik.
Disini contoh penggunaan fungsi Isnumeric yaitu fungsi untuk mengecek apakah berbentuk angka atau bukan dari suatu inputan string.
Ikuti langkah berikut,
1. Buat aplikasi baru
2. Tambahkan komponen Tbutton dan Tedit.
3. Ketikan listing atau script dibawah ini ke headernya

  1. function IsNumeric(const AString: string):   
  2. Boolean;   
  3. var   
  4. LCode: Integer; LVoid: Integer;   
  5. begin Val(AString, LVoid, LCode);   
  6. Result := LCode = 0;   
  7. end;  
4. Kemudian pada tombol satu  ketikan listing seperti di bawah ini
  1. procedure TForm1.Button1Click(Sender: TObject);   
  2. begin if IsNumeric(edit1.Text) then showmessage('angka'else showmessage('Bukan angka');   
  3. end;   
  4.    

Tagg :

0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.