Cek Input Berupa Angka

Cek karakter input berupa angka atau bukan.

Pengendali error menggunakan try – except. Deklarasi fungsi:

function AngkaBukan(n: String): Boolean;
begin
  try
    StrToInt(n);
    Result:= True;
  except
    Result:= False;
  end;
end;

Jika input berupa angka, maka result bernilai True dan jika bukan result bernilai False.
Implementasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if AngkaBukan(Edit1.Text) then ShowMessage('Input berupa angka !')
  else ShowMessage('Input bukan angka !');
end;

Sebagai pembuktian, jalankan tanpa melewati debugger Delphi (compile dan run pada file exe yang telah jadi).