Eliminar contenido dentro de paréntesis

[[AgustinOrtu]]

Una manera muy sencilla de hacerlo:

Código Delphi [-]
const
  Input = 'Texto de(elimi(nar_es)to) ejemplo(esto tambien).';
  Expected = 'Texto de ejemplo.';
var
  Output: string;
  BracketCount: Integer;
  Each: Char;
begin
  BracketCount := 0;
  for Each in Input do
  begin
    if Each = '(' then
      Inc(BracketCount)
    else if Each = ')' then
      Dec(BracketCount)
    else if BracketCount = 0 then
      Output := Output + Each;
  end;

  Assert(Output = Expected);
end.