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;