Einzelnen Beitrag anzeigen

weisswe
(Gast)

n/a Beiträge
 
#6

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

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