/Delphi/How to validate if the text in edit has numbers in and to show a message if it has in delphi

How to validate if the text in edit has numbers in and to show a message if it has in 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;

Source: stackoverflow.com

Similar codes

0 vote202 views3 answers
Delphi keypress ctrl+v
Delphi
6 votes322 views8 answers
React -slick
Delphi
0 vote262 views1 answer
Duplicate ' in string delphi
Delphi
15 votes396 views5 answers
Belle delphine
Delphi
0 vote209 views1 answer
Bootstrap 4 form modal popup
Delphi
6 votes385 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote203 views1 answer
Mongoose schema type double
Delphi
1 vote403 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote287 views1 answer
How to end a program in delphi
Delphi
0 vote221 views1 answer
Password in delphi edit
Delphi