leerzeilen zählen

[SirThornberry]

Delphi-Quellcode:

var LAnzahl, LCount: Integer;
begin
  LAnzahl := 0;
  for LCount := 0 to Richedit1.Lines.Count - 1 do
    if Richedit1.Lines.Strings[LCount] = '' then inc(LAnzahl);

Anschließend kannst du der Variablen LAnzahl die Leerzeilen entnehmen