怎样统计edit中的输入数字的个数？？？

Question

怎样统计edit中的输入数字的个数？？？
不吝赐教

Answer 1

var
  i,j:integer;
  s:string;
begin
  j:=0;
  s:=edit.text;
  for i:=1 to length(s) then
  begin
    if StrToIntDef(S[i],0)=StrToIntDef(S[i],1)   then   
      inc(j);
  end;
  result:=j;
end;

Answer 2

str := Edit1.Text;
Count := 0;
for i := 1 to Length(str) do
begin
  if str[i] in ['0'..'9'] then
    Inc(Count);
end;
//最后的Count就是数字个数

Answer 3

如果是纯数字用Length就可以了

Answer 4

这个不可以得， a-z, A-Z 等都是 ‘单字节’ 字符
这个可以得

Answer 5

str := Edit1.Text; 
Count := 0; 
for i := 1 to Length(str) do 
begin 
  if str[i] in ['0'..'9'] then 
    Inc(Count); 
end; 
//最后的Count就是数字个数 就是这个
楼主要的是数字字符的个数

Answer 6

怎么乱来啊？？？一样的帖都有啊  不要Copy