Löschversuch funktioniert nicht
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 ! :D |
AW: Löschversuch funktioniert nicht
Zitat:
Delphi-Quellcode:
Wenn das klappt mach
SetLength(Edit1.Text, Length(Edit1.Text)-1);
Delphi-Quellcode:
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. |
AW: Löschversuch funktioniert nicht
Bei mir kommt da eine Fehlermeldung nämlich "Konstantenobjekt kann nicht als Var-Parameter weiter gegeben werden".
|
AW: Löschversuch funktioniert nicht
Wie schauts mit einem
Delphi-Quellcode:
aus? Das müsste klappen.
Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);
|
AW: Löschversuch funktioniert nicht
Besten Dank funktioniert Super !:thumb:
|
AW: Löschversuch funktioniert nicht
Gern geschehen, mach es dann aber bitte so:
Delphi-Quellcode:
:wink:
if Length(Edit1.Text) > 0 then Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);
|
AW: Löschversuch funktioniert nicht
Ps: Nur so Nebenbei, Du könntest Dir auch eine Redo Funktion dazu einbauen, also das wenn jemand "lösch letzte Zahl" klickt es auch wieder Rückgängig machen kann, für mehrere Werte müsste man sich nur ein kleines Array einrichten worüber man Werte speichert/zurückholt. Wiegesagt, nur so Nebenbei erwähnt falls Du noch Ideen brauchst :-D
|
AW: Löschversuch funktioniert nicht
Zitat:
|
AW: Löschversuch funktioniert nicht
Zitat:
edit Ja ne, Du hast ja Recht @blawen, er schreibt ja das er Tippt. Mein Fehler, tut mir Leid! |
AW: Löschversuch funktioniert nicht
Eine weitere Möglichkeit wäre:
Delphi-Quellcode:
Gruß
var
mytext : string; begin mytext:=self.Edit1.Text; delete(mytext,length(mytext),1); // letztes Zeichen löschen self.Edit1.Text:=mytext; end; K-H |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz