Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.155 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

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

  Alt 26. Aug 2013, 11:24
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
  Mit Zitat antworten Zitat