Changeset 59 for trunk/IDE/Forms
- Timestamp:
- Jul 17, 2012, 6:44:54 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/IDE/Forms/UFormMain.pas
r55 r59 168 168 begin 169 169 FormSourceCode.Save; 170 AProjectSave.Execute; 170 171 with Core do begin 171 172 // Compile project file … … 178 179 if Project.Files.Count > 0 then 179 180 with TProjectFile(Project.Files[0]) do begin 180 Compiler.SourceFiles. Clear;181 Project.Files.DumpFileList(Compiler.SourceFiles );181 Compiler.SourceFiles.Files.Clear; 182 Project.Files.DumpFileList(Compiler.SourceFiles.Files); 182 183 Compiler.MainSource := Project.MainSource.AbsoluteFileName; 183 184 TargetProject.FileName := ExtractFileDir(Project.FileName) + DirectorySeparator + … … 186 187 Compiler.TargetFolder := ExtractFileDir(TargetProject.FileName); 187 188 Compiler.Compile; 188 TargetProject.Files.LoadFromList(Compiler.TargetFiles );189 TargetProject.Files.LoadFromList(Compiler.TargetFiles.Files); 189 190 FormTargetProject.UpdateInterface; 190 191 end;
Note:
See TracChangeset
for help on using the changeset viewer.