Changeset 8 for trunk/DbEngines/UEngineXML.pas

Timestamp:

Jan 23, 2015, 12:00:37 AM (9 years ago)

Author:

chronos

Message:

• Modified: All data types have own table which is used to specify supported data types by database engines.

File:

• trunk/DbEngines/UEngineXML.pas (modified) (6 diffs)

trunk/DbEngines/UEngineXML.pas

@@ -64 +64 @@
   I := 0;
   while Assigned(Node2) and (Node2.NodeName = 'Value') and (I < Row.Values.Count) do begin
-    case TField(Row.Parent.Fields[I]).FieldType of
+    case TField(Row.Parent.Fields[I]).DataType.FieldType of
       ftString: TValueString(Row.Values[I]).Value := Node2.TextContent;
       ftInteger: TValueInteger(Row.Values[I]).Value := StrToInt(Node2.TextContent);
@@ -84 +84 @@
     NewNode := Node.OwnerDocument.CreateElement('Value');
     Node.AppendChild(NewNode);
-    case TField(Row.Parent.Fields[I]).FieldType of
+    case TField(Row.Parent.Fields[I]).DataType.FieldType of
       ftString: NewNode.TextContent := TValueString(Row.Values[I]).Value;
       ftInteger: NewNode.TextContent := IntToStr(TValueInteger(Row.Values[I]).Value);
@@ -125 +125 @@
 begin
   Field.Name := ReadString(Node, 'Name', '');
-  Field.FieldType := TFieldType(ReadInteger(Node, 'Type', 0));
+  Field.DataType := Field.Table.Database.Engine.DataTypes.FindByType(TFieldType(ReadInteger(Node, 'Type', 0)));
   Field.TextBefore := ReadString(Node, 'TextBefore', '');
   Field.TextAfter := ReadString(Node, 'TextAfter', '');
@@ -133 +133 @@
 begin
   WriteString(Node, 'Name', Field.Name);
-  WriteInteger(Node, 'Type', Integer(Field.FieldType));
+  WriteInteger(Node, 'Type', Integer(Field.DataType.FieldType));
   WriteString(Node, 'TextBefore', Field.TextBefore);
   WriteString(Node, 'TextAfter', Field.TextAfter);
@@ -147 +147 @@
   while Assigned(Node2) and (Node2.NodeName = 'Field') do begin
     NewField := TField.Create;
+    NewField.Table := Fields.Table;
     LoadNodeField(NewField, Node2);
     Fields.Add(NewField);
@@ -206 +207 @@
   while Assigned(Node2) and (Node2.NodeName = 'Table') do begin
     NewTable := TTable.Create;
+    NewTable.Database := Tables.Database;
     LoadNodeTable(NewTable, Node2);
     Tables.Add(NewTable);