source: branches/AS8051toC/Packages/TemplateGenerics/Demo/Demo.lpr

Last change on this file was 26, checked in by chronos, 12 years ago
  • Upraveno: Překlad rozdělen do fáze zpracování maker a druhé fáze zpracování instrukcí.
File size: 513 bytes
Line 
1program Demo;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, SysUtils, UMainForm, TemplateGenerics;
11
12{$R *.res}
13
14const
15 HeapTraceLogFileName = 'heaptrclog.trc';
16begin
17 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName);
18 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName);
19 Application.Initialize;
20 Application.CreateForm(TMainForm, MainForm);
21 Application.Run;
22end.
23
Note: See TracBrowser for help on using the repository browser.