Делфи. Суммируем разные типы чисел

[Дикий]

Вопрос такого плана:
На label1.caption = X.
там могут быть просто числа, а могут быть числа, и числа в скобках.

допустим 11 или же 1111(1)

и есть label2.caption = Y,
в котором та же история.

допустим 222 или же 2(2)

Надо суммировать отдельно числа обыкновенные и числа в скобках.
Как это сделать?

Заранее благодарен

[Карась]

Обработать строку, разбив её на нужные кусочки, и уже работать дальше.

[puporev]

Можно сделать примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
a1,a2,b1,b2:integer;
begin
s1:=edit1.Text;
if pos('(',edit1.Text)=0 then
    begin
      a1:=strtoint(edit1.Text);
      a2:=0;
    end
else
    begin
     a1:=strtoint(copy(s1,1,pos('(',s1)-1));
     a2:=strtoint(copy(s1,pos('(',s1)+1,((pos(')',s1)-pos('(',s1)-1))));
    end;
s2:=edit2.Text;
if pos('(',edit2.Text)=0 then
    begin
      b1:=strtoint(edit2.Text);
      b2:=0;
    end
else
    begin
      b1:=strtoint(copy(s2,1,pos('(',s2)-1));
      b2:=strtoint(copy(s2,pos('(',s2)+1,pos(')',s2)-pos('(',s2)-1));
    end;
if (a2=0)and(b2=0)then  Edit3.Text:=inttostr(a1+b1)
else Edit3.Text:=edit3.Text+inttostr(a1+b1)+'('+inttostr(a2+b2)+')';
end;

end.