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