Changeset 59 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 14, 2010, 8:41:34 AM (14 years ago)

Author:

george

Message:

• Added: On parsing uses section load and parse unit files.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (3 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -37 +37 @@
     procedure UpdateProjectTree;
     procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
+    function GetSource(Name: string; Source: TStringList): Boolean;
   public
     Project: TProject;
@@ -80 +81 @@
   // Compile all project files
   Compiler.Init;
-  for I := 0 to Project.Items.Count - 1 do begin
-    if TProjectNode(Project.Items[I]) is TProjectFile then
-    with TProjectFile(Project.Items[I]) do begin
-      Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
-    end;
+  Compiler.Parser.OnGetSource := GetSource;
+  with TProjectFile(Project.Items[0]) do begin
+    Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
   end;
 
@@ -179 +178 @@
 end;
 
+function TMainForm.GetSource(Name: string; Source: TStringList): Boolean;
+var
+  FileName: string;
+begin
+  FileName := Project.GetDir(True) + Name + '.pas';
+  if FileExists(FileName) then begin
+    Source.LoadFromFile(FileName);
+    Result := True;
+  end else Result := False;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin