This commit is contained in:
Basile Burg 2015-09-20 05:56:48 +02:00
parent 0d9be0dd80
commit 81c966b451
1 changed files with 2 additions and 0 deletions

View File

@ -444,6 +444,8 @@ begin
{$ENDIF}
for i := 0 to aRoot.Count-1 do
begin
if aRoot.Items[i].Data = nil then
continue;
str := PString(aRoot.Items[i].Data)^;
if SameText(LeftStr(aPath, length(str)), str) then
begin