buscar mas de una palabra en memo y eliminar

[ecfisa]

Empezado por jonydread

amigo ecfisa con el procedure BorradasAlFondo
como puedo hacerlo si una de las palabras no existe la agrege de igual manera ...

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.