菜鸟求救

Question

var
    num:integer;
begin
    try
        num:=strtoint(edit1.text);
    except
        showmessage('not nums');
    end;

Answer 1

能否指点一下try.....except 的用法

Answer 2

try……except是容错信息
try 到 except之间是程序没有出错的时候用的，如果程序出错就直接跳到except下面执行了。你听懂了吗？

Answer 3

try 
  代码1；（可能出问题的，如例子中可能不是数字）
  except 
   代码2；(如果出问题的话，执行代码2）
  end;

Answer 4

delphi只提供了分类的类型转换函数,如StrToInt, StrToFloat
但不能用一个函数来判断所有类型的数字,如整型和浮点型.
所以你需要自行编写

Answer 5

hehe 
edit中输入的是string
如果是数字
你可以用strtoint来转化

Answer 6

假如 edit控件中的文本是：123jkk,能否用strtoint转化呢？

Answer 7

对输入内容的ASCII(可用ord函数得出)依次进行比较，如果均在30H(48D)和39H(57D)之间，那么就说明输入的全为数字。

Answer 8

    try
        num:=strtoint(edit1.text);
    except
        on econverterror: showmessage('not nums');//转化出错
    end;

Answer 9

if not TryStrToInt(Edit1.Text, I) then ; //for Delphi6
//参考 Val()

Answer 10

var
    nNum,nError:integer;
begin
    Val(Edit1.Text,nNum,nError);
    if nError<>0 
        showmessage('Error,not nums');
end;