Osmar, muito obrigada pela dica!!!! Funcionou Atenciosamente, Patricia Santana
Osmar de Souza Júnior <[EMAIL PROTECTED]> escreveu: Se for linhas em branco no começo ou no fim do texto: Memo1.Lines.Text := Trim(Memo1.Lines.Text); Se for linhas em branco no meio do texto: var i: integer; begin i := 0; while (i < Memo1.Lines.Count) do begin if (Memo1.Lines[i] = '') then Memo1.Lines.Delete(i) else i := i + 1; end; end; --- Em delphi-br@yahoogrupos.com.br, Patricia Santana escreveu > > 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 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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 <*> 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
