procedure TForm3.Button1Click(Sender: TObject);
var
Linha: Integer;
begin
Linha := 0;
while Linha < Memo1.Lines.Count do
if Length(Memo1.Lines[Linha]) = 0 then
Memo1.Lines.Delete(Linha)
else
Inc(Linha);
end;
--
Erick Sasse
www.ericksasse.com.br
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br
> [mailto:[EMAIL PROTECTED] Em nome de Patricia Santana
> Enviada em: terça-feira, 6 de setembro de 2005 16:24
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Excluir linhas em branco
>
>
> Boa tarde a todos!!!
>
> Preciso retirar linhas em branco de um texto que está dentro
> de um componente memo do Delphi. Como faço isso?
>
> Desde de já agradeço a atenção de todos!
>
>
>
> Patricia Santana
>
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA
> VIAGEM NA CONVERSA. Participe!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
_______________________________________________________
Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA.
Participe! www.yahoo.com.br/messenger/promocao
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
