确定字符串中字符个数的问题

Question

若一个字符串中可能含有空格，如何确定不包含空格的字符个数？

Answer 1

下面这样只能确定包含空格数目的字符串长度。
Edit2.Text:=Inttostr(Length(Edit1.Text));

Answer 2

var
  vStr : String;
begin
  vStr := 'ok 1 2   4';
  showMessage(Format('Str Len = %d',[length(StringReplace(vStr,' ','',[rfReplaceAll]))]));
end;

Answer 3

试了一下，下面两句的效果是一样的：
Edit2.Text:=Inttostr(Length(Edit1.Text));
Edit2.Text:=Inttostr(length(StringReplace(Edit1.Text,'','',[rfReplaceAll])));都算上了字符串里的空格。 

Answer 4

这里写错了啊StringReplace(Edit1.Text,' ','',[rfReplaceAll]) 是有空格的、仔细了

Answer 5

count := 0;
for i:= 1 to length(str) do if str[i] <> chr($20) then inc(count);