计算字符串中空格个数

在delphi编程中,输入一个字符,分别统计出其中的英文字母,空格,数字字符的个数？for i := 0 to length(str_input) -1 do case...