“Bagaimana cara memvalidasi jika teks dalam edit memiliki angka di dan untuk menampilkan pesan jika ada di Delphi” Kode Jawaban

Bagaimana cara memvalidasi jika teks dalam edit memiliki angka di dan untuk menampilkan pesan jika ada di Delphi

// Taking OP question obsessively literally, this 
// function doesn't allow negative sign, decimals, or anything
// but digits
function IsValidEntry(s:String):Boolean;
var
  n:Integer;
begin
  result := true;
  for n := 1 to Length(s) do begin
    if (s[n] < '0') or (s[n] > '9') then
    begin
       result := false;
       exit;
    end;
  end;
end;