有这样的函数吗?

解决方案 »

  1.   

    function isint(txt: string):boolean;
    var  i:integer;begin
    for i:=1 to length(txt) do
       if  (txt[i] in ['0'..'9'])  then  Result :=true
       else Result :=false;
    end;
      

  2.   

    var
          i : integer;
    begin
          TryStrToInt(Edit3.Text, i);
          if Length(IntToStr(i)) < Length(Trim(Edit3.Text)) then
                ShowMessage('Edit1里不是一个整数');
    end;
      

  3.   

    告诉你简单的
      function isdigit(str:string):boolean;
         begin
              result:=false;
              try 
                 strtoint(str);
                 result:=true
              except
                 result:=false;
             end; 
         end;
      

  4.   

    SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or   ES_NUMBER);        你也可以限制Edit1只能输入数字。
      

  5.   

    function IsNumStr(str1: string): boolean;
    //  判斷字符串str1是否數字型字符串(不包含小數點'.'和三位一撇','),
    //  返回邏輯結果True,False
    var
      i: integer;
      bFlag: boolean;
    begin
      bFlag := true;
      for i := 1 to length(str1) do
      begin
        if (copy(str1, i, 1)<'0') or (copy(str1, i, 1)>'9')  then
          bFlag := false;
      end;
      result := bFlag;
    end;
      

  6.   

    同意《Northwindrocker(北风) 告诉你简单的》
      function isdigit(str:string):boolean;
         begin
              result:=false;
              try 
                 strtoint(str);
                 result:=true
              except
                 result:=false;
             end; 
         end;
    是的,这是比较简单的做法!