TMemo, MaxLength, Anzeige der noch möglichen Zeichen

[hoika]

Hallo #,

ich habe hier eine TMemo, da dürfen nur 250 Zeichen rein.
Jetzt möchte ich dem User anzeigen
"Noch x Zeichen möglich"

Muss ich da irgendwas wegen den Enters (manuell oder automatischer Umbruch)
irgendwas beachten ?
Gibt es da Fallstricke ?


Heiko

[angos]

Hi,

beim automatischen Umbruch musst imho nicht beachten. Der Text ändert sich dadurch nicht. Beim manuellen Umbruch ist es so, dass dieser 2 Zeichen erzeugt. Da ist die Frage ob du diese 2 Zeichen mit berechnen willst oder außen vor läßt. Der Zeilenumbruch wäre #13#10.

Gruß
Ansgar

[mirage228]

Also automatische Zeilenumbrüche des Memos werden nicht in den Lines.Text string umgesetzt. Manuelle aber schon.
Es sollte also ohne Probleme gehen "250 - Length(Lines.Text)" zu schreiben...

[hoika]

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

[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