Hallo Achim,
Zitat von
marabu:
Die Funktion liefert die Anzahl der entfernten Leerzeilen:
Delphi-Quellcode:
function TrimLines(s: TStrings): Integer;
begin
Result := s.Count;
s.BeginUpdate;
s.Text := Trim(s.Text);
s.EndUpdate;
Result := Result - s.Count;
end;
das bringt ihm aber nichts, wenn er am Ende der Zeile nur einen Zeilenumbruch hat. Das,w as danach kommt, wird ja nicht als Zeile angesehen.
Der Umbruch wird zwar entfernt, gezählt werden aber nur tatsächlich entfernte Zeilen.