Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
Delphi 12 Athens
|
AW: Letztes Zeichen löschen wenn nicht 0 oder 1
26. Aug 2013, 10:54
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;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|