Changeset 4 for trunk/Forms/UMainForm.pas

Timestamp:

Nov 5, 2010, 7:24:45 AM (13 years ago)

Author:

george

Message:

• Modified: Reorganize parser code to use logical separated functions.

File:

• trunk/Forms/UMainForm.pas (modified) (1 diff)

trunk/Forms/UMainForm.pas

@@ -101 +101 @@
   with TProjectFile(Project.Items[0]) do begin
     Compiler.TargetFolder := Project.RootDir;
-    Compiler.Compile(Parent.GetDir + Name, Source);
+    Compiler.Compile(Parent.GetDir + ExtractFileNameOnly(Name), Source);
   end;