source: trunk/MyData.lpr

Last change on this file was 32, checked in by chronos, 12 months ago
  • Modified: Removed U prefix from units names.
  • Modified: Use TFormEx for all forms.
File size: 732 bytes
Line 
1program MyData;
2
3uses
4 {$IFDEF UNIX}cthreads, clocale,{$ENDIF}
5 Interfaces, // this includes the LCL widgetset
6 Forms, FormTables, Core, IpAddress, Common,
7 FormTable, FormRecords, FormRecord, FormFields, FormField,
8 FormMain, SysUtils, FormConnect, FormDatabases, FormPreferences;
9
10{$R *.res}
11
12{$if declared(UseHeapTrace)}
13const
14 HeapTraceLog = 'heaptrclog.trc';
15{$ENDIF}
16
17begin
18 {$if declared(UseHeapTrace)}
19 // Heap trace
20 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
21 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
22 {$ENDIF}
23
24 RequireDerivedFormResource := True;
25 Application.Scaled:=True;
26 Application.Initialize;
27 Application.CreateForm(TCore, Core.Core);
28 Application.Run;
29end.
30
Note: See TracBrowser for help on using the repository browser.