Zeichenzähler

[horest]

Guten Abend zusammen,

ich möchte in einem Eingabefeld die maximale Zeichenanzahl auf 5 begrenzen. Beginnt man nun die Eingabe, soll in einem weiteren Eingabefeld die noch verbleibende Zeichenanzahl runtergezählt werden.

Mit dem folgenden Skript funktioniert das auch soweit ganz gut, bis auf den Punkt, dass nach der Eingabe des 5. Zeichens der Zähler richtigerweise “0” anzeigt, ich aber trotz Begrenzung auf 5 Zeichen noch einmal weitertippen kann und die Anzeige dann auf “-1” steht.

Kann mir jemand einen Rat geben, wie ich das korrekt machen kann?

on keyDown pKey
put the number of chars of me +1 into tEingabefeld
put “5” into tCounterfeld
put tCounterfeld – tEingabefeld into fld “counterfeld”

if the length of me = 5 then beep
else
pass keyDown
end if
end keyDown

Beste Grüße,
Jens

[Klaus Major]

Das Runterzählen gehört in den ELSE Fall, dann klappt das auch mit der NULL:

on keyDown pKey
   put the number of chars of me +1 into tEingabefeld
   put "5" into tCounterfeld
   if the length of me = 5 then 
      beep
   else
      put tCounterfeld - tEingabefeld into fld "counterfeld"
      pass keyDown
   end if
end keyDown

[horest]

Hallo Klaus,

herzlichen Dank 🙂

[Autor]

Beiträge