Changeset 14 for trunk/UCore.pas

Timestamp:

Jun 10, 2011, 2:16:52 PM (13 years ago)

Author:

george

Message:

• Added: Classes for base data types.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UCoolTranslator;
+  Classes, SysUtils, FileUtil, UCoolTranslator, USystem, USqlDatabase;
 
 type
@@ -14 +14 @@
   TCore = class(TDataModule)
     CoolTranslator1: TCoolTranslator;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
-  end; 
+    System: TChronisBase;
+  end;
 
 var
@@ -27 +29 @@
 {$R *.lfm}
 
+{ TCore }
+
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  System := TChronisBase.Create;
+  System.Database := TSqlDatabase.Create;
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  System.Free;
+end;
+
 end.