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
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
2 matches
Mail list logo
