Zitat von
hoika:
In meinem Fall (muss in eine
DB als VarChar)
muss ich die #13#10 schon mit berücksichtigen.
in Memo1.Lines.Text bzw. Memo1.Text enthält ja die Zeilenumbrüche (abgesehn von den automatischen Umbrüchen, welche nur virtuell in der Anzeige umgebrochen werden, aber nicht in den .Lines
setze wirklich einfach nur .MaxLength deines Memos auf 250
und dann nur noch ...
Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
begin
Label1.Caption := Format('noch %d Zeichen', [Memo1.MaxLength - Length(Memo1.Text)]);
end;
alle weiteren Begrenzungen macht Delphi für dich
also eigentlich mußt da da nichts weiter beachten