nimm ein Memo und mach in OnChange nur mal das rein
Caption := IntToStr(Memo1.Lines.Count);
jetzt einfach nur noch z.B. die "a"-Taste festhalten und warten.
Es sollte sich an der Anzahl der Zeilen demnach ja nix ändern, tut es aber.
PS: beim Speichern
- BeginUpdate
- Zeilenumbruch deaktiveren
- SaveToFile
- Zeilenumbruch eventuell wieder aktiveren
- EndUpdate