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

Question

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

Answer 1

function CountDigit(): integer;
var
  s: string;
  n: integer;
begin
  Result := 0;
  s := Trim(Edit1.Text);
  for k := 1 to Length(s) do
    if (s[k] >= '0') and (s[k] <='9') then
      Result := Result + 1;
end;
  

Answer 2

function CountDigit(edt1:tedit): integer; 
var 
  s: string; 
  k: integer; 
begin 
  Result := 0; 
  s := Trim(edt1.Text); 
  for k := 1 to Length(s) do 
    if (s[k] in ['0'..'9']) then 
      Result := Result + 1; 
end;在楼上的改了一下.

Answer 3

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 4

楼主的意思不是很明确,3楼的未必满足要求如果输入是SD21HJG345KLDG,请问楼主输入的数字个数算5个(2,1,3,4,5)还是算2个(21,345)???