Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**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

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#3 Re: leerzeilen zählen 24. Jul 2004, 23:04 markieren 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 Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Einzelnen Beitrag anzeigen

Re: leerzeilen zählen