UTF-8编码转换实现

/////////////////

UTF-8 转换原理
U-00000000 - U-0000007F: 0xxxxxxx 
U-00000080 - U-000007FF: 110xxxxx 10xxxxxx 
U-00000800 - U-0000FFFF: 1110xxxx 10xxxxxx 10xxxxxx 
U-00010000 - U-001FFFFF: 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx 
U-00200000 - U-03FFFFFF: 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 
U-04000000 - U-7FFFFFFF: 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

//以下摘自D7的VCL源程序~

第一个字节的开头"1"的数目就是整个串中字节的数目

    if c <= $7F then
      begin
    {
        U-00000000 - U-0000007F: 0xxxxxxx 
        1个字节的直接复制
    }
        Dest[count] := AnsiChar(c);
        Inc(count);
      end
      else if c > $7FF then
      begin
      {
        U-00000800 - U-0000FFFF: 1110xxxx 10xxxxxx 10xxxxxx 
        3个字节的分开处理, 上面可以放X的位置是 4+6+6 个,
        第一个字节只放 四个 XXXX, 所以要将后 原始内容 后移 6+6位,然后与 11100000B(E0) or运算.
        第二个字节在将原始内容后移6位,然后与 111111B and运算,这样就去掉了原始内容前面的位,只保留想要的中间6位,
            将这个内容再与 10000000B or 运算.
        第三个字节与第二个字节的思路一样,只是不用再移位了.
      }
        if count + 3 > MaxDestBytes then
          break;
        Dest[count] := AnsiChar($E0 or (c shr 12));
        Dest[count+1] := AnsiChar($80 or ((c shr 6) and $3F));
        Dest[count+2] := AnsiChar($80 or (c and $3F));
        Inc(count,3);
      end
      else //  $7F < Source[i] <= $7FF
      begin
        if count + 2 > MaxDestBytes then
          break;
        Dest[count] := AnsiChar($C0 or (c shr 6));
        Dest[count+1] := AnsiChar($80 or (c and $3F));
        Inc(count,2);
      end;