Changeset 9 for trunk/AcronymDecoder.lpr


Ignore:
Timestamp:
Apr 22, 2016, 8:35:20 AM (9 years ago)
Author:
chronos
Message:
  • Fixed: Error in open file if previously file was closed.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22AcronymDecoder.exe
        33AcronymDecoder.lps
         4AcronymDecoder
         5heaptrclog.trc
         6

  • trunk/AcronymDecoder.lpr

    r4 r9  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UAcronym, synapse, UFormImport, Common, TemplateGenerics,
     10  Forms, UFormMain, UAcronym, synapse, UFormImport, Common, SysUtils, TemplateGenerics,
    1111  UFormAcronym
    1212  { you can add units after this };
    … …  
    1414{$R *.res}
    1515
     16{$IFDEF DEBUG}
     17const
     18  HeapTraceLog = 'heaptrclog.trc';
     19{$ENDIF}
     20
     21
    1622begin
    17   Application.Title:='Acronym Decoder';
    18   RequireDerivedFormResource:=True;
     23  {$IFDEF DEBUG}
     24  // Heap trace
     25  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     26  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     27  {$ENDIF}
     28
     29  Application.Title := 'Acronym Decoder';
     30  RequireDerivedFormResource := True;
    1931  Application.Initialize;
    2032  Application.CreateForm(TFormMain, FormMain);
Note: See TracChangeset for help on using the changeset viewer.