Letztes Zeichen löschen wenn nicht 0 oder 1

[Der schöne Günther]

Weil du nur deine lokale String-Variable bin veränderst, und nicht den Text in deinem TEdit-Feld namens Binaer .

Du musst Binaer.Text natürlich anschließend auch noch den Inhalt der Variable zuweisen.

Allerdings wundert mich spontan, dass er überhaupt kompiliert. Gibt AnsiLastChar nicht einen PAnsiChar zurück? Ich würde mich wundern wenn der Zeiger auf einen AnsiChar überhaupt das gleiche ergeben soll wie deine literale Konstante '1'. Kann mich jemand aufklären?