Changeset 70 for branches/Transpascal/Transpascal.lpr

Timestamp:

Oct 19, 2010, 11:22:55 AM (14 years ago)

Author:

george

Message:

• Modified: Pascal parser code moved to separate unit.

File:

• branches/Transpascal/Transpascal.lpr (modified) (1 diff)

branches/Transpascal/Transpascal.lpr

@@ -15 +15 @@
 {$R *.res}
 
+const
+  HeapTraceLog = 'heaptrclog.trc';
 begin
   // Heap trace
-  DeleteFile(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
-  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
 
   Application.Initialize;