delphi 提取字符串中的汉字

原理 ：在windows中，中文和全角字符都占两个字节，
并且使用了ascii　chart 2 (codes 128 - 255 )。
全角字符的第一个字节总是被置为163，
而第二个字节则是相同半角字符码加上128（不包括空格）。
如半角a为65，则全角a则是163（第一个字节）、 193 （第二个字节， 128 + 65 ）。
而对于中文来讲，它的第一个字节被置为大于163，（
如 ' 阿 ' 为: 176   162 ）,我们可以在检测到中文时不进行转换。

 

function TFrm_Main.FilterHz(s: string): string;
var

  P: ^Byte;
  Dest: string;
  Index: Integer;
begin

  Result := '';

  P := Pointer(@S[1]);
  Dest := '';
  Index := 1;
  while Index < Length(S) do
  begin
    if P^ >= 128 then //去除 0-127 字母与数据
    begin
      if P^ > 163 then // 是 汉字
      begin
        Dest := Dest + Chr(P^);
        Inc(Index);
        Inc(P);
        Dest := Dest + Chr(P^);
      end
      else
      begin
        Inc(Index);
        Inc(P);
      end;
    end;
    Inc(Index);
    Inc(P);
  end;

  Result := Dest;
end;