delphi 判断isFloat

function isFloat(const aStr: string): Boolean;

var

    i: Integer;

    cChar: Char;

    cStr: string;

    cSep: Boolean;

begin

    cStr:=aStr;

    cStr:=trim(cStr);

    if length(cStr)=0 then

    begin

           result:=false;

           exit;

    end;

    result:=true;

    cSep:=false;

    if (cStr[1] = '-') or (cStr[1] = '+') then

           cStr:=copy(cStr,2,length(cStr));

    for i:=1 to Length(cStr) do

    begin

           cChar:=cStr[i];

           if not isNum(cChar) then

           begin

                   if (not cSep) and ((cChar = '.') or (cChar = ',')) then

                           cSep:=true

                   else

                   begin

                           result:=false;

                           exit;

                   end;

           end;

    end;//for

end;