procedure TForm1.Button4Click(Sender: TObject);
var
pmstr,zspm:WideString;
cstr1,cstr2:WideString;
i:Word;
begin
//pmstr:=Trim(Edit2.Text);
pmstr:='黄山(红皖)硬红';
cstr1:='(';
cstr2:=')';
for i:=1 to Length(pmstr) do
if (cstr1=pmstr[i]) or (cstr2=pmstr[i]) then
Continue
else
zspm:=zspm+pmstr[i];
ShowMessage(zspm);
end;
去除中文括号
最新推荐文章于 2021-06-16 10:15:13 发布