请教大家一个字串操作的问题

Question

一个字串的内容如下(括弧内的部分为不定长度的数字型字串):
    1-"电视机(XXXX)、冰箱(XXXX)、微波炉(XXX)、DVD(XXX)、热水器(XXX)、收音机(XX)，共计XXXXX元"
或者
    2-"电视机(XXXX)"应该如何操作才能把以上字串中的括弧及其中的字符完全删除掉?

Answer 1

var s: string;
    i, j: integer;
begin
 s := '电视机(XXXX)、冰箱(XXXX)、微波炉(XXX)、DVD(XXX)、热水器(XXX)、收音机(XX)，共计XXXXX元';
 i :=  pos('(', s);
 while i > 0 do
 begin
   j := pos(')', s);
   delete(s, i, j-i+1);
   i :=  pos('(', s);
 end;
 showMessage(s);
end;

Answer 2

方法一：
用Pos找到"("和")"的位置
用Delete删除方法二：
for i:=1 to Length(sTemp) do
  sTemp[i]
......
逐个判断是否是该删除部分
不是就放到新字符串中。

Answer 3

方法二：
for i:=1 to Length(sTemp) do
  sTemp[i]
......
逐个判断是否是该删除部分
不是就放到新字符串中。
  
这个方法不好，括号中是数字，但数字也可能不再括号中呀，容易误删。字窜比较多时，好像没有好的方法。

Answer 4

aiirii(ari-爱的眼睛) 的方法可行，就是查找的次数太多了先声明两个数组，扫描一次字符串，将左括号及右括号的位置分别保存到一个数组中
然后从后往前，取出左右括号的位置删除其内容，
不过如果括号不对就惨了