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

This commit is contained in:
Massimo Melina 2020-06-08 12:36:05 +02:00
parent 33d4d16b0b
commit 1fc5894204

View File

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