delphi技巧－－分离汉字和英文字母

const 
  s:widestring='k你asdfdsf好d吗?';
var
  i:integer;
  y,h:string;
begin
  while Length(s)<>0 do
    begin
      if Length(s[i])=Length(string(s[i])) then
        y:=y+s[i]
      else h:=h+s[i];
      s:=copy(s,2,length(s));
    end;
  edit1.Text:=y;
  edit2.Text:=h;
end;

转载于:https://www.cnblogs.com/duhai_lee/archive/2005/03/30/128538.html

• 点赞
• 收藏
• 分享
• 文章举报