1
0
mirror of synced 2024-11-09 21:09:16 +00:00

Fixed: syntax error

This commit is contained in:
Mark van Renswoude 2005-02-15 15:03:45 +00:00
parent a2368d1f65
commit 92db5a273e

View File

@ -376,7 +376,7 @@ begin
AParent := ExcludeTrailingPathDelimiter(ExpandFileName(AParent));
Result := SameTextS(AChild, AParent) and
((not AFailIfSame) or
(Length(AChild) > Length(AParent));
(Length(AChild) > Length(AParent)));
end;
end.