求判断字符串是否为汉字的函数11111111111111111

Question

求判断字符串是否为汉字的函数？
还有怎样让TTreeView中的结点的值不能被修改？

Answer 1

1. 判断ascii是不是大于 128(含中文标点)
2. ReadOnly:=True;

Answer 2

for i:=1 to Length(s) do
  begin
    if (Ord(s[i]) >= 33) And (Ord(s[i])<=126) then
    begin
     Inc(e);
     Label1.Caption := '英文字数：'+ IntToStr(e);
    end
    else
     if (Ord(s[i]) >= 127) then
     begin
       Inc(c);
       Label2.Caption := '中文字数：' + IntToStr(c div 2);
     end;
    end;