Letztes Zeichen löschen wenn nicht 0 oder 1

[baumina]

Wenn Du möchtest, dass ein Editfeld nur 1en und 0en zulässt, löse es folgendermassen:

Ereignis OnKeyPress:

Delphi-Quellcode:

if not CharInSet(Key, ['0','1',#8]) then
begin // #8 = Backspace
  beep;
  Key := #0;
end;