string - 如何计算字符串中的字符(排除某些类型)？

Question

我需要确定文本框中的字符总数并在标签中显示该值，但需要排除所有空白。

这是代码:

var     
sLength : string;
i : integer;
begin
     sLength := edtTheText.Text;
     slength:= ' ';
     i := length(sLength);

     //display the length of the string
     lblLength.Caption := 'The string is ' +  IntToStr(i)  + ' characters long';

Answer 1

您可以像这样计算非空白字符:

uses
  Character;

function NonWhiteSpaceCharacterCount(const str: string): Integer;
var
  c: Char;
begin
  Result := 0;
  for c in str do
    if not Character.IsWhiteSpace(c) then
      inc(Result);
end;

这使用 Character.IsWhiteSpace判断一个字符是否为空格。当且仅当根据 Unicode 规范将字符分类为空白时，IsWhiteSpace 返回 True。因此，制表符算作空白。