Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Löschversuch funktioniert nicht

  Alt 16. Aug 2018, 21:33
Ich bin gerade dabei nen einfachen Windows Taschenrechner zu programmieren jetzt habe ich u.a. einen Button dafür eingerichtet das man die letzte zahl löschen kann
,also z.B. Ich gebe ne 12 ein drück den Button und dann steht dann da nur noch eine 1.

edit1.Text:=edit1.Text - ' ';


Ich habe versucht mir diesen befehl herzuleiten leider ohne erfolg wie man sehen kann. Jetzt kann ich nur auf euer wissen hoffen danke im Vorraus !
Probier mal SetLength(Edit1.Text, Length(Edit1.Text)-1); Wenn das klappt mach
If Length(Edit1.Text) > 0 then SetLength(Edit1.Text, Length(Edit1.Text)-1);

Ps: das ist nur hier im DP edit geraten/entstanden, also ungetestet.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat