git-svn-id: trunk@1989 -
@@ -538,7 +538,10 @@ var
begin
PrevSpaces := 0;
CurParent := RootLinkNode;
- PrevSibling := nil;
+ PrevSibling := CurParent.FirstChild;
+ if assigned(PrevSibling) then
+ while assigned(PrevSibling.NextSibling) do
+ PrevSibling := PrevSibling.NextSibling;
StackIndex := 0;
while True do
@@ -638,7 +638,7 @@ begin
end;
Path := Copy(AFilename, 1, EndIndex - 1);
- if not FileExists(Path) then
+ if not DirectoryExists(Path) then
CreatePath(Path);
MkDir(Path);