/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

8 votes262 views4 answers
Bootstrap display error message
Delphi
0 vote177 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote178 views1 answer
Inputbox delphi
Delphi
-1 vote198 views1 answer
Delphi if statement
Delphi
0 vote249 views1 answer
Delphi calculator
Delphi
0 vote184 views1 answer
How to use incyear in delphi
Delphi
1 vote275 views4 answers
"nickolasmin"
Delphi
0 vote210 views1 answer
Breakpoint condition delphi
Delphi
0 vote181 views1 answer
Types of message box C#
Delphi
0 vote179 views1 answer
Remove unnecessary packages raspi pixel
Delphi