/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

1 vote430 views4 answers
"nickolasmin"
Delphi
3 votes433 views2 answers
Get current date delphi
Delphi
0 vote353 views1 answer
Delphi Tidhttp error could
Delphi
0 vote370 views3 answers
Delphi keypress ctrl+v
Delphi
0 vote402 views1 answer
Delphi dynamic array count
Delphi
19 votes446 views2 answers
Download jupyter for linux
Delphi
6 votes536 views1 answer
Delphi array
Delphi
0 vote366 views1 answer
Get time in milliseconds delphi
Delphi
5 votes499 views3 answers
Copy function delphi
Delphi
6 votes415 views8 answers
React -slick
Delphi