leerzeilen zählen

[fungunner2]

Hallo alle
Ich würd gern die Leerzeilen in meinem richedit zählen find aber keinen Ansatz.
Hat irgendwer nen Denkanstoss für mich ?
Die Suche hat mir leider nicht weitergeholfen....

thx
fungunner2

[S2B]

Du könntest die Länge des Strings vorher mit der Länge des Strings nach dem Ersetzen der Leerzeichen durch "nichts" vergleichen:

Delphi-Quellcode:

var
  altelänge, neuelänge, anzahl: Integer;
begin
  altelänge:=length(RichEdit1.Text);
  neuelänge:=length(StringReplace(RichEdit1.Text,' ','',[rfReplaceAll]));
  anzahl:=altelänge - neuelänge;
end;

Dieser Code entstand in Zusammenarbeit mit Mirilin im IM! :mrgreen:

Edit 1 und 2: :wall: :mrgreen:

[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

[fungunner2]

lot off thx,thats it :bounce2:
Absolut schnelles&geiles Forum hier

fungunner2