Browse Source

RawReadString is limited to length of shortstring, don't read more than that

Margers 9 months ago
parent
commit
f0257e8424
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/rtl-console/src/unix/keyboard.pp

+ 1 - 0
packages/rtl-console/src/unix/keyboard.pp

@@ -1819,6 +1819,7 @@ begin
        ch:=#0;
      if ch<>#0 then
        St:=St+ch;
+     if length(st)=255 then break;
   Until ch=#0;
   RawReadString:=St;
 end;