Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

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

    Delphi
    by DeddyH, 26. Aug 2013
  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:
  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 in ) then