各位帮帮小的，再线等

Question

function tzllrform.istelephone(s:string):boolean;
var
i:integer;
begin
 if length(s)=0 then
 begin
   result:=true;
   exit;
   end;
   i:=1;
   while i<=length(s) do
   begin
//-------
     if isNumeric(s[i])=false
//-------- 
then
     begin
       result:=false;
       exit;
        end;
      i:=i+1;
     end;
     end;
//我在做delphi系统时，调试出现了错误：[错误] zllr.pas(86): Undeclared identifier: 'isNumeric'请问怎么解决，小的从没看见过isNumeric这个请帮我解释解释阿？
谢谢阿！！！！！

Answer 1

我帮你写个:
function tzllrform.istelephone(s:string):boolean;
begin
Result := True;
try 
StrToInt(s0)
except 
Result := False;
end;
end;