Apagar Linhas do Memo

Delphi

12/08/2005

Olá,
Como faço para zebrar as linhas do Memo

Ex, a pessoa escreve assim:

teste 1

da


d
sd



sd
sd

ds


Gostaria q ficasse assim:

teste 1
da
d
sd
sd
sd
ds
//FIM

Note Também que nao ha uma linaha em baixo em branco depois de Tudo


Abraços...


Tremonti

Tremonti

Curtidas 0

Respostas

Caninha51

Caninha51

12/08/2005

var
  i: integer;
begin
  for i := memo1.Lines.Count-1 downto 0 do
    if trim(memo1.Lines[i]) = ´´ then
      memo1.Lines.Delete(i);
end;



GOSTEI 0
Julio Motta

Julio Motta

12/08/2005

var
  i: integer;
begin
  for i := memo1.Lines.Count-1 downto 0 do
    if trim(memo1.Lines[i]) = ´´ then
      memo1.Lines.Delete(i);
end;


Mais prático

Memo1.Clear;



GOSTEI 0
POSTAR