Fixed deletion of chars in prompt()

This commit is contained in:
Andreas Schneider 2015-09-28 11:06:43 +02:00
parent 05c26ed91f
commit 5ae488c008
1 changed files with 1 additions and 0 deletions

View File

@ -35,6 +35,7 @@ begin
if (c = #8) and (Length(Result) > 0) then if (c = #8) and (Length(Result) > 0) then
begin begin
Write(#8, ' ', #8); Write(#8, ' ', #8);
SetLength(Result, Length(Result) - 1);
end end
else if c > #31 then else if c > #31 then
begin begin