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.