Hallo,
Danke, ich probier es aus.
In meinem Fall (muss in eine
DB als VarChar)
muss ich die #13#10 schon mit berücksichtigen.
#Update:#
Es klappt wunderbar.
Delphi-Quellcode:
Label_LengthInfo.Caption:=
IntToStr(Edit_Msg.MaxLength-Length(Edit_Msg.Lines.Text))
+' / '+IntToStr(Edit_Msg.MaxLength);
Der Code wird im Memo.OnChange ausgeführt.
Heiko