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 <[EMAIL PROTECTED]>
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
<*> 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
