Letztes Zeichen löschen wenn nicht 0 oder 1

[baumina]

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;

[weisswe]

Zitat von baumina:

Du löscht nur wenn die Länge des String genau 1 ist. Dann würde reichen:

Das stimmt - wenn er wirklich nur bei Länge 1 löschen will..

Sonst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bin: String;
begin
  bin := Binaer.Text;
  if (Copy(bin, length(bin), 1) = '1') or (Copy(bin, length(bin), 1) = '0') then
    Delete(bin, length(bin), 1);
  Binaer.Text := bin;
end;

[Der schöne Günther]

Zitat von weisswe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bin: String;
begin
  bin := Binaer.Text;
  if (Copy(bin, length(bin), 1) = '1') or (Copy(bin, length(bin), 1) = '0') then
    Delete(bin, length(bin), 1);
  Binaer.Text := bin;
end;

Hätte er jetzt kein altes D6 sondern ein schnuckeliges XE4, könnte man das auch so runterkriegen:

Delphi-Quellcode:

   if myStr.EndsWith('1') or myStr.EndsWith('0') then
      myStr := myStr.TrimRight(['1', '0']);

Mir gehen bei den Record-Helpern jeden Tag wieder einer ab, ich mag die Dinger einfach