|
@@ -1537,9 +1537,13 @@ var
|
|
if (UpperCase(GetDirName(Node)) = Dir) or (TNodeData(Node.Data).ShortName = Dir) then
|
|
if (UpperCase(GetDirName(Node)) = Dir) or (TNodeData(Node.Data).ShortName = Dir) then
|
|
begin
|
|
begin
|
|
if Length(Path) > 0 then
|
|
if Length(Path) > 0 then
|
|
|
|
+ begin
|
|
Result := SearchSubDirs(Node, Path)
|
|
Result := SearchSubDirs(Node, Path)
|
|
- else
|
|
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ begin
|
|
Result := Node;
|
|
Result := Node;
|
|
|
|
+ end;
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
Node := ParentNode.GetNextChild(Node);
|
|
Node := ParentNode.GetNextChild(Node);
|