Fixed deletion of chars in prompt()

2015-09-28 11:06:43 +02:00 · 2015-09-28 11:06:43 +02:00 · 5ae488c008
parent 05c26ed91f
commit 5ae488c008
1 changed files with 1 additions and 0 deletions
--- a/UCRTHelper.pas
+++ b/UCRTHelper.pas
@ -35,6 +35,7 @@ begin
    if (c = #8) and (Length(Result) > 0) then
    begin
      Write(#8, ' ', #8);
+      SetLength(Result, Length(Result) - 1);
    end
    else if c > #31 then
    begin