Einzelnen Beitrag anzeigen

Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Letztes Zeichen löschen wenn nicht 0 oder 1

  Alt 26. Aug 2013, 11:11
Du löscht nur wenn die Länge des String genau 1 ist. Dann würde reichen:

Delphi-Quellcode:
procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
begin
  If ((Binaer.Text = '1') or (Binaer.Text = '0')) then Binaer.Text := '';
end;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat