eliminar una linea en un memo

[gulder]

hola foro como anda, bueno parece que este hilo ya se ha creado varia veces anteriormente pero no contesta lo que trato te hacer o no lo he logrado hacer con los hilos que ya estan, bueno espero no ser un poco canson puesto que uno de estos hilos lo cree yo mismo que trataba de como eliminar, actulizar una linea en un memo bueno que mas da ya esta creado bamos al grano.

lo que no he podido hacer es por ejemplo tengo un texto grande en mi Memo en el texto hay lineas que no tienen nada estan vacias yo quiero eliminar las lineas que estan vacias - 1 siempre y cuando se repitan mas de dos lineas vacias, osea me explico mejor donde tenga varias lineas vacias seguidas me deja solo una line vacia y donde hay una sola linea la deja tal cual como estaba y haci sucesivamente hasta recorres todo el MEMO gracias de antemano espero que me hallan entendido gulder

[roman]

Prueba este código:

Código Delphi [-]
{
  Comprime líneas en blanco

  El procedimiento lee el archivo InputFileName, reduce grupos de líneas
  consecutivas en blanco a una sola y escribe el texto transformado en
  OutputFileName.
}
procedure CompressBlankLines(InputFileName, OutputFileName: String);
var
  InputFile, OutputFile: TextFile;
  Line: String;

begin
  AssignFile(InputFile, InputFileName);
  Reset(InputFile);

  AssignFile(OutputFile, OutputFileName);
  Rewrite(OutputFile);

  while not Eof(InputFile) do
  begin
    ReadLn(InputFile, Line);

    if Trim(Line) = '' then
    begin
      repeat
        ReadLn(InputFile, Line);
      until Trim(Line) <> '';

      WriteLn(OutputFile, '');
    end;

    WriteLn(OutputFile, Line);
  end;

  CloseFile(InputFile);
  CloseFile(OutputFile);
end;

No funciona sobre un memo, sino directamente sobre el archivo en disco, pero creo que te haces la idea.

// Saludos

[gulder]

gracias voy a mira lo que dices roman despues comento como me fue