MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 18:13:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: (recent) error trying to load a VFS with an empty recent-files list

Browse Source
This commit is contained in:
Massimo Melina 2020-06-08 12:36:05 +02:00
parent 33d4d16b0b
commit 1fc5894204
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utillib.pas
View File

@ -746,6 +746,8 @@ function removeString(s:string; var a:TStringDynArray; onlyOnce:boolean=TRUE; ci
var i, lessen:integer; var i, lessen:integer;
begin begin
result:=FALSE; result:=FALSE;
if a = NIL then
exit;
lessen:=0; lessen:=0;
try try
for i:=length(a)-1 to 0 do for i:=length(a)-1 to 0 do