/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 vote356 views1 answer
How to use incyear in delphi
Delphi
1 vote473 views3 answers
Bootstrap cards with image on the right side
Delphi
11 votes465 views3 answers
Practicing python
Delphi
0 vote338 views1 answer
Choose character from string in delphi
Delphi
0 vote343 views2 answers
Remove escapes from json
Delphi
0 vote393 views1 answer
Hello world in delphi
Delphi
0 vote445 views1 answer
How write pi in delphi
Delphi
2 votes455 views1 answer
Get last element of array delphi
Delphi
2 votes424 views1 answer
Delphi basics generating random number
Delphi
0 vote363 views2 answers
Css social code bootstrap 4
Delphi