Changeset 50 for trunk/IDE/UProject.pas

Timestamp:

Apr 5, 2012, 2:03:52 PM (13 years ago)

Author:

chronos

Message:

• Modified: Interpretter execution partial implementation.

File:

• trunk/IDE/UProject.pas (modified) (4 diffs)

trunk/IDE/UProject.pas

@@ -83 +83 @@
     Packages: TProjectPackageList;
     BuildConfigs: TProjectBuildConfigList;
+    MainSource: TProjectFile;
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
@@ -343 +344 @@
   I: Integer;
   Text: string;
+  MainSourceName: string;
 begin
   try
@@ -352 +354 @@
     if Assigned(NewNode) then
       Files.LoadFromXMLNode(NewNode);
+
+    NewNode := Doc.DocumentElement.FindNode('MainSource');
+    if Assigned(NewNode) then begin
+      MainSourceName := UTF8Encode(NewNode.TextSource);
+
+    end;
+
     NewNode := Doc.DocumentElement.FindNode('Packages');
     if Assigned(NewNode) then
@@ -375 +384 @@
     AppendChild(RootNode);
     with RootNode do begin
+      NewNode := CreateElement('MainSource');
+      NewNode.TextContent := UTF8Decode(MainSource.FileName);
+      AppendChild(NewNode);
+
       NewNode := CreateElement('Files');
       Files.SaveToXMLNode(NewNode);