獲取字符串的長度（非字節長度）

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;