Zeilen in Memo löschen

[Catbytes]

Hallo,

mach es doch so - dann spielt es auch keine Rolle, ob nach >5 Zeichen noch Text kommt.

Der ganze Text (egal wo), wird dann "gesichert":

Delphi-Quellcode:

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

Macht dann aus:
================================================== =====
Dies ist


ein

**************kleiner Test.


******Alles sollte nun weg und linksbündig sein...

================================================== =====

dieses hier:
================================================== =====
Dies ist
ein
kleiner Test.
Alles sollte nun weg und linksbündig sein...
================================================== =====