Eliminar palabras de un documento

[dec]

Hola,

A bote pronto se me ocurre algo parecido a esto:

Código Delphi [-]
(*
  Carga un archivo existente e itera por sus líneas para
  rechazar aquellas que superen la longitud deseada.

  Si el archivo especificado no existe este procedimiento
  levantará una excepción del tipo "EInOutError"

  Ejemplo de llamada:

  var
    t: TStrings;
  begin
    t := TStringList.Create();
    try
      GetWordsFromFile('palabras.txt', 2, t);
      Memo1.Text := t.Text;
    finally
      t.Free();
    end;
  end;

  Parámetros:

  filePath: Ruta del archivo a cargar

  maxChars: Máximos caracteres para no rechazar una línea

  resultsWords: Variable donde se albergará el resultado,
  es decir, las líneas cargadas del archivo no rechazadas

*)
procedure GetWordsFromFile(filePath: string;
 maxChars: integer; var resultsWords: TStrings);
var
  i: integer;
begin
  if FileExists(filePath) then begin
    resultsWords.LoadFromFile(filePath);
    for i := resultsWords.Count-1 downto 0 do
    begin
      if (Length(resultsWords[i]) > maxChars) then
      begin
        resultsWords.Delete(i);
      end;
    end;
  end
  else begin
    raise EInOutError.CreateFmt(
      'The file "%s" dont exists',
      [filePath]
    );
  end;
end;

No sé si puede servirte o darte al menos una idea.

PD. Básicamente es lo que dice el compañero Neftalí, si bien en este caso no se desechan las palabras del "Memo", sino que no llegan a cargarse en el mismo.

[Neftali [Germán.Estévez]]

Empezado por dec

PD. Básicamente es lo que dice el compañero Neftalí, si bien en este caso no se desechan las palabras del "Memo", sino que no llegan a cargarse en el mismo.

Básicamente esta solución es mejor, por que las que no valen ya nos las añades.
Mi solución (que estoy un poco perro hoy y era por no escribir) las descarta luego, por lo que estás haciendo trabajo de más....

[dec]

Hola,

Bueno, no sé. No lo tengo tan claro.

En primer lugar, el procedimiento propuesto lo escribí a bote pronto, y, es muy probable que existan mejores soluciones. Ahora bien, cargar las palabras, hemos de hacerlo, bien directamente en el "Memo", o no, pero, ese paso hay que darlo.

Yo evité cargarlas antes en una variable y luego asignar dicha variable al "Memo" porque tal vez el recorrer y borrar las palabras una vez dentro de este, pudiera "saltar a la vista" del usuario, que están a la que salta, no sé si me explico.

[Mick]

Empezado por dec

Hola,
Yo evité cargarlas antes en una variable y luego asignar dicha variable al "Memo" porque tal vez el recorrer y borrar las palabras una vez dentro de este, pudiera "saltar a la vista" del usuario, que están a la que salta, no sé si me explico.

Tenemos el metodo BeginUpdate, que evita que salten los eventos de redibujado, modificacion, etc, evitando el problema visual y ademas acelerando muchisimo las modificaciones:

Código Delphi [-]
Memo1.Lines.BeginUpdate;
try
  //
  // Añadir, modificar o borrar lineas del memo.
  //
finally
  Memo1.Lines.EndUpdate;
end;

Saludos

[dec]

Hola,

Sí; gracias Mick. Efectivamente, existe "BeginUpdate", aunque, no probé con él. Pero podría servir, así es.