Fixed: syntax error
This commit is contained in:
parent
a2368d1f65
commit
92db5a273e
@ -376,7 +376,7 @@ begin
|
|||||||
AParent := ExcludeTrailingPathDelimiter(ExpandFileName(AParent));
|
AParent := ExcludeTrailingPathDelimiter(ExpandFileName(AParent));
|
||||||
Result := SameTextS(AChild, AParent) and
|
Result := SameTextS(AChild, AParent) and
|
||||||
((not AFailIfSame) or
|
((not AFailIfSame) or
|
||||||
(Length(AChild) > Length(AParent));
|
(Length(AChild) > Length(AParent)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user