取字符串长度

//取字符串长度
function Len(const value: string): integer;
begin
  if Value='' then
     result:= 0 
  else
    result:= PInteger(Integer(Value)-4)^;
end;