Memo Zeichenzähler mit Eingabe

[DaveRidge]

MMh, mir fällt grd auf, das wenn ich was lösche, das dies als zeichen mit hinzugefügt wird.
MMh, naja. Ich mach morgen weiter. Heute isses mir zu spät.

MfG Dave

[Luckie]

Zitat von DaveRidge:

MMh, mir fällt grd auf, das wenn ich was lösche, das dies als zeichen mit hinzugefügt wird.
MMh, naja. Ich mach morgen weiter. Heute isses mir zu spät.

MfG Dave

Weil ich nicht die Zeichen zähle, sondern nur die Tastendrücke. War auch nur als Anregung gedacht.

[fkerber]

Hi!

Als Tipp dazu:
Du musst dann noch abfragen, welches Zeichen da so kommt - es kommen ja nur 2 Tastendrücke in Frage, die etwas löschen können.
Allerdings gibt es noch mehr Sonderfälle:
Markierten Text (mehr als ein Zeichen) löschen oder sogar ausschneiden oder überschreiben...
Auch das Einfügen von Text (sei es über Kontextmenü oder über Tastenkombi) solltest du bedenken...


Grüße, Frederic

[jaenicke]

Zitat von DaveRidge:

Form1.StatusBar1.Panels[1].Text:=('Zeichenzahl: ' + InttoStr(zeichenzaehler));

Vorausgesetzt du bist innerhalb von Form1 ist das eine sehr schlechte Idee explizit auf die in der globalen Variablen Form1 gespeicherte Instanz des Formulares zuzugreifen.
Das solltest du wie beim Memo lieber weglassen.

Zum Thema: Warum denkt ihr so kompliziert?

Delphi-Quellcode:

  StatusBar1.Panels[1].Text := 'Zeichenzahl: '
    + IntToStr(Length(StringReplace(Memo1.Text, #13#10, ' ', [rfReplaceAll])));

Bzw. wenn der Zeilenumbruch gar nicht gezählt werden soll, dann einfach durch einen leeren String statt mit einem Leerzeichen ersetzen, fertig.

Diese Lösung ist zwar langsamer usw. als einfaches Zählen, aber bei der zu erwartenden Zeichenanzahl spielt das ja keine Rolle.

[Amateurprofi]

Zitat von jaenicke:

Zitat von DaveRidge:

Form1.StatusBar1.Panels[1].Text:=('Zeichenzahl: ' + InttoStr(zeichenzaehler));

Vorausgesetzt du bist innerhalb von Form1 ist das eine sehr schlechte Idee explizit auf die in der globalen Variablen Form1 gespeicherte Instanz des Formulares zuzugreifen.
Das solltest du wie beim Memo lieber weglassen.

Zum Thema: Warum denkt ihr so kompliziert? :mrgreen:

Delphi-Quellcode:

  StatusBar1.Panels[1].Text := 'Zeichenzahl: '
    + IntToStr(Length(StringReplace(Memo1.Text, #13#10, ' ', [rfReplaceAll])));

Bzw. wenn der Zeilenumbruch gar nicht gezählt werden soll, dann einfach durch einen leeren String statt mit einem Leerzeichen ersetzen, fertig.

Diese Lösung ist zwar langsamer usw. als einfaches Zählen, aber bei der zu erwartenden Zeichenanzahl spielt das ja keine Rolle.

Da finde ich Luckies Vorschläge, bzw. das was sich daraus ergibt, deutlich eleganter:
StatusBar1.Panels[1].Text:=IntToStr(Length(Memo1.Text)-Memo1.Lines.Count);

[jaenicke]

Zitat von Amateurprofi:

Da finde ich Luckies Vorschläge, bzw. das was sich daraus ergibt, deutlich eleganter:
StatusBar1.Panels[1].Text:=IntToStr(Length(Memo1.Text)-Memo1.Lines.Count);

Nur dass du festgestellt hättest, dass es so nicht funktioniert, wenn du es ausprobiert oder die Antworten gelesen hättest...

Zitat von DaveRidge:

Zitat von Luckie:

Na dann ziehe die Anzahl der Zeilen wieder ab. Dann müsste es stimmen. Bei zwei Zeilen hast du vier Steuerzeichen minus zwei Zeilen sind ein Steuerzeichen pro Zeile.

Das hab ich jetzt auch mal gemacht, von den Zeichen her passt es, nur beim Eingabe zählt er immernoch 2 Zeichen, aber dann bei der neuen Zeile der erste Buchstabe zählt er nicht mit. Er fängt dann beim 2.ten Zeichen an.

Das lässt sich sicher auch noch korrigieren, aber da hatte ich jetzt keine Lust zu.
// EDIT:
Es sollte reichen bei 0 Zeichen in der letzten Zeile nochmal minus Eins zu rechnen. Kommt noch dazu, dass man die Leerzeile woanders machen kann...

[Amateurprofi]

Ich hab das schon getestet, habe mir aber zugegebenermaßen nicht alle Kommentare angesehen und deswegen den Sonderfall (Zeile hat noch kein CRLF) nicht 'drauf gehabt.
So sollte es dann vollständig funktionieren:

Delphi-Quellcode:

var s:string; len:integer;
begin
   s:=Memo1.Text;
   len:=Length(s);
   dec(len,Memo1.Lines.Count-Integer((len>0) and (s[len]<>#10)));
   Statusbar1.Panels[0].Text:=IntToStr(len);
end;

M.E. sollte das aber nicht in Memo1KeyPress stehen sondern im Memo1Change.

[mkinzler]

Man könnte es auch mit
Anzahl := Length(Memo.Lines.DelimitedText); versuchen

[DaveRidge]

Hallo

Dank jaenicke, das war das was ich gesucht hatte
IntToStr(Length(StringReplace(Memo1.Text, #13#10, ' ', [rfReplaceAll]))); Funzt perfekt

MfG Dave