GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Added: ChildPathEx to return the expanded file names

Browse Source
This commit is contained in:
Mark van Renswoude 2005-02-15 12:36:31 +00:00
parent d680b8c2a4
commit 288b338f74
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
X2UtStrings.pas
View File

@ -94,6 +94,22 @@ type
*}
function ChildPath(const AChild, AParent: String): Boolean;
{** Determines if one path is the child of another path.
*
* Matches the start of two normalized paths. Either of the path may contain
* parent-references (ex. 'some\..\..\path\'). Note that the file system is
* not actually accessed, all checks are performed on the strings only.
*
* The parameters are modified to return the expanded file names, stripped
* of any trailing path delimiter.
*
* @param AChild the path to check
* @param AParent the path which is supposed to be the parent
* @result True if the child is indeed a child of the parent,
* False otherwise.
*}
function ChildPathEx(var AChild, AParent: String): Boolean;
implementation
uses
SysUtils;
@ -343,9 +359,16 @@ var
sParent: String;
begin
sChild := IncludeTrailingPathDelimiter(ExpandFileName(AChild));
sParent := IncludeTrailingPathDelimiter(ExpandFileName(AParent));
Result := SameTextS(sChild, sParent);
sChild := AChild;
sParent := AParent;
Result := ChildPathEx(sChild, sParent);
end;
function ChildPathEx(var AChild, AParent: String): Boolean;
begin
AChild := ExcludeTrailingPathDelimiter(ExpandFileName(AChild));
AParent := ExcludeTrailingPathDelimiter(ExpandFileName(AParent));
Result := SameTextS(AChild, AParent);
end;
end.