1
0
mirror of synced 2024-09-19 17:56:09 +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)); 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.