Letztes Zeichen löschen wenn nicht 0 oder 1

[DeddyH]

Die Aufgabe scheint aber doch eindeutig zu sein: lösche das letzte Zeichen eines Strings, wenn es weder '0' noch '1' ist. Dafür hätte ich auch noch einen Vorschlag:

Delphi-Quellcode:

procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
var 
  i :integer;
  bin :string;
begin
  bin := Binaer.Text;
  i := Length(bin);
  if i > 0 then
    if not (bin[i] in ['0', '1']) then
      SetLength(bin, i - 1);
  Binaer.Text := bin;
end;