提取字符串中的汉字

Question

我有一个字符串Str,StrE,StrC:String;
Str:='洗涤WASHING电机 PUMP ASSEMBLY/alternative';
我想提取Str中的汉字赋给StrC,把英文和其中包含的符号赋给StrE，
如下：
StrC='洗涤电机';
StrE='WASHING PUMP ASSEMBLY/alternative'
请大侠指教

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s,s1,s2: string;
  ws: WideString;
  dp: DWORD;
  i: Integer;
begin
  s := '我a的ddd家ffffff里';  s1 := '';
  ws := WideString(s);  for i:=1 to Length(ws) do
  begin
    s2 := ws[i];
    dp := WORD(s2[1]) shl 8 + WORD(s2[2]);
    if (dp >= $B0A1) and (dp <= $D7F9) then
      s1 := s1 + s2;
  end;  edit2.Text := s1;
end;