Changeset 51 for trunk/IDE/UProject.pas

Timestamp:

Apr 6, 2012, 9:43:56 AM (13 years ago)

Author:

chronos

Message:

• Added: Project determines which source file is main program source.

File:

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

trunk/IDE/UProject.pas

@@ -357 +357 @@
     NewNode := Doc.DocumentElement.FindNode('MainSource');
     if Assigned(NewNode) then begin
-      MainSourceName := UTF8Encode(NewNode.TextSource);
-
+      MainSourceName := UTF8Encode(NewNode.TextContent);
+      MainSource := Files.SearchFile(MainSourceName);
     end;
 
@@ -385 +385 @@
     with RootNode do begin
       NewNode := CreateElement('MainSource');
-      NewNode.TextContent := UTF8Decode(MainSource.FileName);
+      if Assigned(MainSource) then
+        NewNode.TextContent := UTF8Decode(MainSource.FileName);
       AppendChild(NewNode);
 
@@ -419 +420 @@
   Files.Clear;
   Packages.Clear;
+  MainSource := nil;
 end;