Apagar Linhas do Memo
12/08/2005
0
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...
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
Curtir tópico
+ 0
Responder
Posts
15/08/2005
Caninha51
var
i: integer;
begin
for i := memo1.Lines.Count-1 downto 0 do
if trim(memo1.Lines[i]) = ´´ then
memo1.Lines.Delete(i);
end;
Responder
30/11/2022
Julio Motta
[code:1:115944a541]var
i: integer;
begin
for i := memo1.Lines.Count-1 downto 0 do
if trim(memo1.Lines[i&93;) = ´´ then
memo1.Lines.Delete(i);
end;[/code:1:115944a541]
Mais prático
Memo1.Clear;
i: integer;
begin
for i := memo1.Lines.Count-1 downto 0 do
if trim(memo1.Lines[i&93;) = ´´ then
memo1.Lines.Delete(i);
end;[/code:1:115944a541]
Mais prático
Memo1.Clear;
Responder
Clique aqui para fazer login e interagir na Comunidade :)