Eliminar contenido dentro de paréntesis
 

Hola,

Tengo un memo que contiene frases o palabras dentro de paréntesis y quiero eliminar todo ese contenido, incluido los paréntesis, había pensado en utilizar AnsiReplaceStr pero al contener diferentes palabras no he sabido continuar, alguien me puede ayudar o indicarme como debería de hacerlo?


Dejo un ejemplo por si han quedado dudas

Hola...

Algo rápido y de memoria:

Código Delphi [-]
var
  PStart: integer;
  PEnd: integer;
  Text: string;

begin
  Text := 'Texto de (eliminar_esto) ejemplo.';
  PStart := Pos('(', Text);
  PEnd := Pos(')', Text);
  Delete(Text, PStart, (PEnd - PStart) + 1);
end;

Saludos...

Puede haber mas de una ocurrencia? Es decir:

antes de nada agradecer el código a maeyanes, aun no he podido hacer la prueba.



Así es AgustinOrtu, en el memo existen mas ocurrencias, error mio al no indicarlo.. como ya he dicho no he podido hacer la prueba pero supongo utilizando el código maeyanes y colocando un "for" que recorrar todo el memo debería de ser suficiente, ¿no?

Gracias por los comentarios a ambos :)

Podrias usar una expresion regular o simplemente implementar un "analisis de lexico" que es una forma eficiente y simple de implementar un parser muy basico (que aplica a este caso).

Hay todo un tutorial de esto en

https://en.wikibooks.org/wiki/Compil...xical_analysis

Ajustarlo se ve simple. Como sea, es solo recurrer caracter por caracter, detectar si los caracteres que interesan y acumular lo demas, que parece aun mas simple en tu caso:

En pseudocodigo:

Código Delphi [-]
procedure scan(text:String Or TextStream; beginChar, endChar:Char):String
begin
    result = ""

    for char in text
    begin
        if char == beginChar
        begin
            for nextChar in text
            begin
                if nextChar ==endChar
                    advanceOne //comerse el )
                    break
            end
        end
        result = result + char
    end
    return result
end

¿Hay paréntesis anidados? Saludos.

La funcion System.Pos devuelve la primera ocurrencia del string indicado

Tenes que implementar algo mas sofisticado como comenta mamcx

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.

Jeje, ya me vole la funcion, muy buena por cierto.

Saludos.