DBR Delphi-Ecke

// Leerzeilen werden aus TMemo, TRichedit oder TStringlist entfernt. Man kann
// festlegen ob Zeilen, die nur Leerzeichen enthalten, ebenfalls entfernt
// werden sollen.

// Getestet mit D4 unter XP

procedure DelBlankLines(ts: TStrings; auchLeerzeichen: boolean); 
var i: integer; 
begin 
  ts.beginupdate; 
  if auchLeerzeichen then 
    for i := 0 to ts.count - 1 do 
      if trim(ts[i]) = '' then ts[i] := ''; 
  repeat 
    i := ts.indexof(''); 
    if i < 0 then break; 
    ts.delete(i); 
  until false; 
  ts.endupdate; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DelBlankLines(Memo1.lines, true); 
end;