Guten Tag und Frohe Weihnachten ersteinmal!
Habe mich für mein Programm nach einer Lösung umgeschaut und im Prinzip auch eine hier gefunden:
http://www.delphipraxis.net/156868-l...er-laenge.html
Ist sicherlich ein Anfängerfehler, aber ich möchte ebenfalls die letzte Ziffer meines Strings löschen. Hier ein Auszug aus dem Code:
Delphi-Quellcode:
...
System.schreibeText('Bitte Namen Eingeben und mit PFEILOBEN bestätigen! (LÖSCHEN:PFEILUNTEN)');
repeat
if Tastatur.wurdeGedrueckt then
Begin
if ((GetKeyState(VK_DOWN) AND 128)=128) then
Begin
delete(SpielerName, length(SpielerName), 1);
System.bewegeBis(derBildschirm.breite/2-200,680);
System.schreibeText(' ');
System.bewegeBis(derBildschirm.breite/2-200,680);
System.schreibeText(SpielerName);
End
Else
Begin
H:=Tastatur.zeichen;
Spielername:=SpielerName+H;
System.bewegeBis(derBildschirm.breite/2-200,680);
System.schreibeText(SpielerName);
Tastatur.weiter;
End;
End;
until ((GetKeyState(VK_UP) AND 128)=128);
...
Doch wenn ich Pfeilunten drücke wird jedesmal der gesamte String gelöscht.. wie kann das sein? Danke für die Hilfe!