Programação

Como Remover Linhas em Branco do Memo ou RichEdit – Delphi

Curta Nossa Página

Removendo todas as linhas em branco de um Memo ou RichEdit com Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 for i := Memo1.Lines.Count/1 downto 0 do
   if trim(Memo1.Lines[i]) = '' then
      Memo1.Lines.Delete(i);
end;

Etiquetas
Botão Voltar ao topo