TMemo, MaxLength, Anzeige der noch möglichen Zeichen

[himitsu]

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