Changeset 24 for trunk/Units/Project.pas

Timestamp:

Apr 5, 2025, 9:45:07 PM (12 days ago)

Author:

chronos

Message:

• Fixed: Test cases executed with FormTests form from Common package.

File:

• trunk/Units/Project.pas (modified) (2 diffs)

trunk/Units/Project.pas

@@ -80 +80 @@
     NewNode := Node.OwnerDocument.CreateElement('Project');
     Node.AppendChild(NewNode);
-    TProject(Items[I]).SaveXMLNode(NewNode);
+    Items[I].SaveXMLNode(NewNode);
   end;
 end;
@@ -136 +136 @@
       Projects.SaveXMLNode(NewNode);
     end;
-    ForceDirectoriesUTF8(ExtractFileDir(FileName));
-    WriteXMLFile(Doc, UTF8Decode(FileName));
+    ForceDirectories(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, FileName);
   finally
     Doc.Free;