Context Navigation

Kernel.App.pas

Last change on this file was 60, checked in by chronos, 19 months ago
Modified: Remove U prefix from unit names.
File size: 538 bytes

Line
1	unit Kernel.App;
2
3	interface
4
5	uses
6	Classes, SysUtils, Kernel.List, Kernel.API, Kernel.Scheduler;
7
8	type
9	{ TApp }
10
11	TApp = class(TNamedObject)
12	API: TUserApi;
13	Terminated: Boolean;
14	constructor Create; virtual;
15	destructor Destroy; override;
16	procedure Run(Task: TTask); virtual;
17	end;
18
19
20	implementation
21
22	{ TApp }
23
24	constructor TApp.Create;
25	begin
26	inherited Create;
27	API := TUserApi.Create;
28	end;
29
30	destructor TApp.Destroy;
31	begin
32	API.Free;
33	inherited Destroy;
34	end;
35
36	procedure TApp.Run(Task: TTask);
37	begin
38
39	end;
40
41
42	end.
43

Note: See TracBrowser for help on using the repository browser.