判断一个字符串是否为数字(delphi源码)

function IsNum(DataStr:string):boolean;
var
   i:integer;
   str1:char;
   DataLen:integer;
   PStr1:pchar;
   zfh,xsd:boolean; //是否已有正负号，小数点
begin
   datalen:=length(datastr);
   zfh:=false;
   xsd:=false;
   isnum:=true;
   for i:=0 to datalen-1 do
      begin
          pstr1:=pchar(datastr);
          str1:=pstr1[i];

          if (str1='+') or (str1='-') then
             begin
                 if zfh=true then
                    begin
                       isnum:=false;
                       exit;
                    end
                  else
                    zfh:=true;
             end
          else
              if (str1='.') then
                  begin