获取字符串的长度（非字节长度）

function StrLength(CONST value: string ):Integer;
Var
  s:Pansichar;
  Tail:Pansichar;
begin
  s: = Pansichar(value);
  Tail: = s + Length(s);
  Result: = 0 ;
  While (s < Tail)   do
  begin
     if  s ^   in  LeadBytes then
      inc(s, StrCharLength(s))
     else
     INC(S);
     INC(Result);
  end;
end;