source: trunk/MyData.lpr

Last change on this file was 28, checked in by chronos, 21 months ago
  • Modified: Do not create all application forms at initialization phase but dynamically.
File size: 786 bytes
Line 
1program MyData;
2
3uses
4 {$IFDEF UNIX}cthreads, clocale,{$ENDIF}
5 Interfaces, // this includes the LCL widgetset
6 Forms, UFormTables, UCore, UIpAddress, Common,
7 UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField,
8 UFormMain, SysUtils, UFormConnect, UFormDatabases, UFormPreferences;
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);
28 Application.CreateForm(TFormMain, FormMain);
29 Application.Run;
30end.
31
Note: See TracBrowser for help on using the repository browser.