Changeset 14 for trunk/UCore.pas

Timestamp:

Mar 22, 2018, 7:59:13 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for item references.
• Added: Data and Time value types.

File:

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

trunk/UCore.pas

@@ -68 +68 @@
   STypeTime = 'Time';
   STypeDateTime = 'Date and time';
+  STypeReference = 'Reference';
 
 { TCore }
@@ -109 +110 @@
 begin
   for I := 0 to DataTypes.Count - 1 do begin
-    TDataType(DataTypes[I]).Name := CoolTranslator1.TranslateText(TDataType(DataTypes[I]).Name, TDataType(DataTypes[I]).Name);
+    TDataType(DataTypes[I]).Title := CoolTranslator1.TranslateText(TDataType(DataTypes[I]).Title, TDataType(DataTypes[I]).Title);
   end;
 end;
@@ -130 +131 @@
 
   NewEngine := Engines.RegisterEngine('MySQL', TDatabaseMySQL);
-  NewEngine.UseTypes(DataTypes, [ftString, ftInteger, ftDateTime, ftBoolean, ftFloat]);
+  NewEngine.UseTypes(DataTypes, [ftString, ftInteger, ftDateTime, ftBoolean, ftFloat,
+    ftReference]);
 
   NewEngine := Engines.RegisterEngine('SQLite', TDatabaseSQLite);
@@ -140 +142 @@
   DataTypes.Clear;
   with DataTypes do begin
-    RegisterType(1, STypeString, ftString, TFieldString);
-    RegisterType(2, STypeInteger, ftInteger, TFieldInteger);
-    RegisterType(3, STypeDateTime, ftDateTime, TFieldDateTime);
-    RegisterType(4, STypeBoolean, ftBoolean, TFieldBoolean);
-    RegisterType(5, STypeFloat, ftFloat, TFieldFloat);
-    RegisterType(6, STypeMapPosition, ftMapPosition, TFieldMapPosition);
-    RegisterType(7, STypeDate, ftDate, TFieldDate);
-    RegisterType(8, STypeTime, ftTime, TFieldTime);
-    RegisterType(9, STypeImage, ftImage, TFieldImage);
+    RegisterType(1, 'String', STypeString, ftString, TFieldString);
+    RegisterType(2, 'Integer', STypeInteger, ftInteger, TFieldInteger);
+    RegisterType(3, 'DateTime', STypeDateTime, ftDateTime, TFieldDateTime);
+    RegisterType(4, 'Boolean', STypeBoolean, ftBoolean, TFieldBoolean);
+    RegisterType(5, 'Float', STypeFloat, ftFloat, TFieldFloat);
+    RegisterType(6, 'MapPosition', STypeMapPosition, ftMapPosition, TFieldMapPosition);
+    RegisterType(7, 'Date', STypeDate, ftDate, TFieldDate);
+    RegisterType(8, 'Time', STypeTime, ftTime, TFieldTime);
+    RegisterType(9, 'Image', STypeImage, ftImage, TFieldImage);
+    RegisterType(10, 'Reference', STypeReference, ftReference, TFieldReference);
   end;
 end;
@@ -174 +177 @@
   Engine: TDatabaseEngine;
 begin
+  XMLConfig1.FileName := 'Config.xml';
   Databases.Count := XMLConfig1.GetValue('Database/Count', 0);
   for I := 0 to Databases.Count - 1 do begin