Changeset 13 for trunk/UCore.pas

Timestamp:

Mar 17, 2015, 12:09:11 AM (10 years ago)

Author:

chronos

Message:

• Modified: Now records are loaded from SQL database using SQL query. The query is parsed also by XML database client to load records from XML file.
• Added: Packages Network and Synapse.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -140 +140 @@
   DataTypes.Clear;
   with DataTypes do begin
-    RegisterType(STypeString, ftString, TFieldString);
-    RegisterType(STypeInteger, ftInteger, TFieldInteger);
-    RegisterType(STypeDateTime, ftDateTime, TFieldDateTime);
-    RegisterType(STypeBoolean, ftBoolean, TFieldBoolean);
-    RegisterType(STypeFloat, ftFloat, TFieldFloat);
-    RegisterType(STypeMapPosition, ftMapPosition, TFieldMapPosition);
-    RegisterType(STypeDate, ftDate, TFieldDate);
-    RegisterType(STypeTime, ftTime, TFieldTime);
-    RegisterType(STypeImage, ftImage, TFieldImage);
+    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);
   end;
 end;