Prüfen, ob Edit nur aus Zahlen besteht

[Ferber]

Hi !
Aus meiner Sammlung:

Delphi-Quellcode:

function IsNumeric(s:String):Boolean;
var i:Integer;
begin
  Result:=False;
  for i := 1 to Length(s) do
    if (s[i] > '9') or (s[i] < '0') then exit;
  Result:=True;
end;