如何找出一个字符串中的汉字？

如何找出一个字符串中的汉字？1、一个字符串中有数字、字母、汉字、半角空格、全角空格。如何找出其中的汉字？（不计全角空格）2、如何去掉一个字符串中的空格（包括全角空格和半角空格）function TfrmMain.IsAllCH(sTemp: String): boolean;var i: Integer;begin for i := 1 to Length(sTemp) do begin if Ord(sTemp[i]) < 128 then begin Result := False; Exit end; end;end;procedure TfrmMain.Button1Click(Sender: TObject);begin if IsAllCH(edt1.Text) then begin ShowMessage('全是汉字！'); end;end;这个是是判断一个字符串中，是否全部是汉字的一个例子，你参考参考吧！StringReplace(AString, #32, '', [rfReplaceAll, rfIgnoreCase])半角空格StringReplace(AString, #161#161, '', [rfReplaceAll, rfIgnoreCase])全角空格