Letztes Zeichen löschen wenn nicht 0 oder 1

[DelphiNoob1.0]

Hmm das wäre Natürlich einfacher, aber meine Lehrerin möchte ja sehen wie man das anders lösen könnte Das mit der Eins hab ich verbessert, jetzt muss der string größer als 1 sein, damit die Procedur arbeitet

[baumina]

Zitat von DelphiNoob1.0:

Hmm das wäre Natürlich einfacher, aber meine Lehrerin möchte ja sehen wie man das anders lösen könnte

Lehrer

Wenn du nur das letzte Zeichen betrachtest, hilft dir das gar nichts, denn man kann in einem Editfeld auch mittendrin ein Zeichen abändern oder einfügen. D.h. du musst immer den kompletten String begutachten.

Vor dem Ändern musst Du dir die Position des Cursors merken. Diese muss pro gelöschtem Zeichen ebenfalls korrigiert werden. Nach dem Ändern muss der Cursor dann neu gesetzt werden. (siehe SelStart)

[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;