slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

editor: handle DEL at prompt()

Browse source 
README: small corrections
This commit is contained in:
slederer 2024-09-27 02:18:14 +02:00
parent 60db522e87
commit 18b95b6bb6
2 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
progs/editor.pas
View file

@ -390,8 +390,7 @@ begin
if numMode then
isValidChar := isDigit(ch)
else
isValidChar := (ord(ch) >= 32) and
(ord(ch) <> 127); (* don't want DEL character *)
isValidChar := (ord(ch) >= 32)
end;
begin
@ -427,7 +426,7 @@ begin
c := chr(key);
l := length(strReturn);
if c = #8 then
if (c = #8) or (c = #127) then
doBackspace
else
if isValidChar(c) then