修复.cache文件夹的创建

TSDocxToPdf.tsf

@@ -77,6 +77,8 @@ begin
         elements := sect_ware.Elements();
         for _,element in elements do
         begin
+            println("_ = {}", _);
+            if _ = 266 then return;
             if element.LocalName = "p" then self.TransformParagraph(sect_ware, element);
             else if element.LocalName = "tbl" then self.TransformTable(sect_ware, element);
         end
@@ -126,7 +128,9 @@ end;
 function TSDocxToPdf.InitCachePath(file: string);
 begin
     path := format("%s_%s", extractFileName(file), formatDatetime("YYYYMMDDHHNNSSZZZ", now()));
-    cache_path_ := format("%s/funcext/PdfConverter/.cache/%s/", extractFileDir(sysExecName()), path);
+    cache_dir := format("%s/funcext/PdfConverter/.cache", extractFileDir(sysExecName()));
+    createDir("", cache_dir);
+    cache_path_ := format("%s/%s/", cache_dir, path);
     createDir("", cache_path_);
 end;