buscar mas de una palabra en memo y eliminar
 

amigos queria saber si se puede buscar mas de una palabra a la vez en un memo y eliminar
se que se realiza de esta forma mas o menos

Código Delphi [-]
 For l:=0 to memo1.Lines.Count - 1 do
 if pos('palabra',memo1.lines[l]) > 0 then
 begin
memo1.Lines.Delete(l);

o debo realizar dos veces el mismo codigo si quiero buscar mas palabras??

lo que quiero hacer es que al cargar texto al memo la palabra 1, palabra 2 y palabra 3 queden siempre al ultimo y el metodo que utilizare es eliminarlas y agregarlas al final :D

saludos!!

Código Delphi [-]
Memo1.Text:= StringReplace(Memo1.Text, 'palabra','',[rfReplaceAll]);

Saludos.

Hola jonydread.

La verdad no veo para nada claro que es lo que deseas hacer.

Si buscas eliminar una palabra del texto del memo, la solución que te dió escafandra es la más adecuada. Y del mismo modo lo sigue siendo, si deseas agregar la palabra eliminada al final del memo.

Pero por otro lado, mirando el código que pusiste, dá la impresión que quisieras eliminar las líneas que contengan a la palabra y agregarlas al final (como comentas en la última parte de tu mensaje).

Si así fuera, podrías hacer:

Código Delphi [-]
procedure BorradasAlFondo(Texto: TStrings; Palabras: array of string);
var
  i,j: Integer;
  s  : string;
begin
  for i:= Low(Palabras) to High(Palabras) do
    for j:= 0 to Texto.Count -1 do
      if Pos(Palabras[i], Texto[j]) <> 0 then
      begin
        Texto.Add(Texto[j]);
        Texto.Delete(j);
      end;
end;

Llamada:

Código Delphi [-]
  BorradasAlFondo(Memo1.Lines,['palabra_1','palabra_2','palabra_3',...'palabra_N']);

Saludos.

gracias por sus respuestas, ecfisa funciono a la perfeccion muchas gracias!!!

amigo ecfisa con el
procedure BorradasAlFondo
como puedo hacerlo si una de las palabras no existe la agrege de igual manera
por ejemplo
y quede
he probado asi bueno de muchas formas pero es el mismo resultado o peor :confused:

Código Delphi [-]
  for i:= Low(Palabras) to High(Palabras) do
    for j:= 0 to Texto.Count -1 do
      if Pos(Palabras[i], Texto[j]) <> 0 then
      begin
      Texto.Delete(j);
      Texto.Add(Palabras[i]);

       end;

muchas gracias!!^\||/

Hola jonydread.

Si no te entiendo mal, sería:

Código Delphi [-]
procedure BorradasAlFondo(Texto: TStrings; Palabras: array of string);
var
  i,j: Integer;
  s  : string;
  Found: Boolean;
begin
  for i:= Low(Palabras) to High(Palabras) do
  begin
    Found := False;
    for j:= 0 to Texto.Count -1 do
      if Pos(Palabras[i], Texto[j]) <> 0 then
      begin
        Found:= True;
        Texto.Add(Texto[j]);
        Texto.Delete(j);
      end;
    if not Found then
      Texto.Add(Palabras[i]);
  end;
end;

Saludos. :)

muchas gracias nuevamente ya estaba medio enredado

saludos!