求助一个小问题！

Question

怎么判断一个编辑框内全部是数字，如果是就要
不是就为空
在判断的时候，不要遍历完，第一个不是都不做了，一次一样。多谢！

Answer 1

没太明白你的意思，你是不是要限定这个编辑框只能输入数字，如果是：
if Not (Key in ['0'..'9','.','-',#8,#13]) then Key :=#0;

Answer 2

Try
StrToInt(Trim(Edit.Text));
except
Edit.Text:='';
end;

Answer 3

var i:integer;if not strstrtoint64(edit1.text,i) then edit1.clear

Answer 4

if not trystrtoint64(edit1.text,i) then edit1.clear

Answer 5

也可以限制一下procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(Edit1.Handle,  GWL_STYLE,
                                   GetWindowLong(Edit1.Handle,  GWL_STYLE)  or
                                   ES_NUMBER);
end;

Answer 6

if Not(key in['0'..'9','.',#13]) then
    key:=#0;

Answer 7

是这样的
在字段DZ中有汉字和日期
字段是字符串类型
我怎么取出来日期
DZ的值为str
if not (str[i] in ['0'..'9'])  then
  str:=''
else
 str:=str
这样可以 但是如果str有数字和汉字组成或者其他的符号，如果判断一次判断这样很不好怎么解决？