Löschversuch funktioniert nicht

[Versus]

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 !

[KodeZwerg]

Zitat von Versus:

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.

[Versus]

Bei mir kommt da eine Fehlermeldung nämlich "Konstantenobjekt kann nicht als Var-Parameter weiter gegeben werden".

[KodeZwerg]

Wie schauts mit einem Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); aus? Das müsste klappen.

[Versus]

Besten Dank funktioniert Super !

[KodeZwerg]

Gern geschehen, mach es dann aber bitte so: if Length(Edit1.Text) > 0 then Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);

[KodeZwerg]

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

[blawen]

Zitat von Versus:

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 - ' ';

Braucht es diese Funktion überhaupt? In einem Edit-Feld kann man ja üblicherweise mit der Backspace-Taste löschen.

[KodeZwerg]

Zitat von blawen:

In einem Edit-Feld kann man ja üblicherweise mit der Backspace-Taste löschen.

Ich vermute mal das Edit1 ReadOnly für Knopf-Eingabe ist. Also Knopf "1" = Edit1.Text := Edit1.Text + '1';

edit
Ja ne, Du hast ja Recht @blawen, er schreibt ja das er Tippt. Mein Fehler, tut mir Leid!

[p80286]

Eine weitere Möglichkeit wäre:

Delphi-Quellcode:

var
  mytext : string;
begin
  mytext:=self.Edit1.Text;
  delete(mytext,length(mytext),1);     // letztes Zeichen löschen
  self.Edit1.Text:=mytext;
end;

Gruß
K-H