学步园

var
  i: Integer;
  canShow: Boolean;
  s, ss: AnsiString;
begin
  ss := '字符串测试_blog.csdn.net/haiou327';
  canShow := False;
  for i := 1 to Length(ss) do
  begin
    if Ord(ss[i]) > 128 then        //判断汉字或字母符号
    begin
      s := ss[i] + ss[i + 1];
      if not canShow then           //汉字显示处理
      begin
        canShow := true;
        ShowMessage(s);
      end
      else
        canShow := false;
    end
    else
    begin
      ShowMessage(ss[i]);
    end;
  end;
end;

 http://bbs.2ccc.com/topic.asp?topicid=383812