QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 15:00:38 +00:00
Code Issues Releases Wiki Activity

reorder ubound check

Browse source
This commit is contained in:
SteveMcNeill 2022-05-17 09:25:21 -04:00
parent ef875607ff
commit 7420504f42
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/ide/ide_methods.bas
View file

@ -19989,8 +19989,8 @@ SUB RetrieveSearchHistory (SearchHistory() as string)
redim _preserve SearchHistory(1 to 10000) 'large initial array to hold the data
Do until eof(fh)
ln = ln + 1
line input #fh, SearchHistory(ln)
if ln > ubound(SearchHistory) then redim _preserve SearhHistory(1 to ln + 10000) 'large resize, it necessary
line input #fh, SearchHistory(ln)
Loop
redim _preserve SearchHistory(1 to ln) 'resize to proper size before exit
CLOSE #fh