Changeset 28 for trunk/DbEngines/UEngineXML.pas

Timestamp:

Sep 10, 2022, 10:21:48 PM (20 months ago)

Author:

chronos

Message:

• Modified: Do not create all application forms at initialization phase but dynamically.

File:

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

trunk/DbEngines/UEngineXML.pas

@@ -37 +37 @@
     function TableCreateIfNotExists(Name: string): TTable;
     function FieldCreateIfNotExists(TableName, FieldName: string; DataType: TDataType): TField;
-  protected
   public
     procedure Query(Text: string; DbRows: TDbRows = nil); override;
@@ -101 +100 @@
   Row.Values.Count := Row.Parent.Fields.Count;
   for I := 0 to Row.Values.Count - 1 do
-    Row.Values[I] := TValueClass(TField(Row.Parent.Fields[I]).GetValueClass).Create;
+    Row.Values[I] := TValueClass(Row.Parent.Fields[I].GetValueClass).Create;
 
   Node2 := Node.FirstChild;
   I := 0;
   while Assigned(Node2) and (Node2.NodeName = 'Value') and (I < Row.Values.Count) do begin
-    case TField(Row.Parent.Fields[I]).DataType.FieldType of
+    case Row.Parent.Fields[I].DataType.FieldType of
       ftString: TValueString(Row.Values[I]).Value := string(Node2.TextContent);
       ftInteger: TValueInteger(Row.Values[I]).Value := StrToInt(string(Node2.TextContent));
@@ -126 +125 @@
     NewNode := Node.OwnerDocument.CreateElement('Value');
     Node.AppendChild(NewNode);
-    case TField(Row.Parent.Fields[I]).DataType.FieldType of
+    case Row.Parent.Fields[I].DataType.FieldType of
       ftString: NewNode.TextContent := UnicodeString(TValueString(Row.Values[I]).Value);
       ftInteger: NewNode.TextContent := UnicodeString(IntToStr(TValueInteger(Row.Values[I]).Value));
@@ -160 +159 @@
     NewNode := Node.OwnerDocument.CreateElement('Record');
     Node.AppendChild(NewNode);
-    SaveNodeRecord(TRecord(Records.Items[I]), NewNode);
+    SaveNodeRecord(Records[I], NewNode);
   end;
 end;
@@ -204 +203 @@
     NewNode := Node.OwnerDocument.CreateElement('Field');
     Node.AppendChild(NewNode);
-    SaveNodeField(TField(Fields.Items[I]), NewNode);
+    SaveNodeField(Fields[I], NewNode);
   end;
 end;
@@ -264 +263 @@
     NewNode := Node.OwnerDocument.CreateElement('Table');
     Node.AppendChild(NewNode);
-    SaveNodeTable(TTable(Tables.Items[I]), NewNode);
+    SaveNodeTable(Tables[I], NewNode);
   end;
 end;
@@ -647 +646 @@
   if FileExists(FileName) then
     LoadFromFile(FileName);
-  (*
+
+(*
   TableCreateIfNotExists('Model');
   TableCreateIfNotExists('ModelField');
@@ -677 +677 @@
 begin
   Tables := TTables.Create;
-  inherited Create;
+  inherited;
 end;
 
 destructor TDatabaseXML.Destroy;
 begin
-  Tables.Free;
-  inherited Destroy;
-end;
-
+  FreeAndNil(Tables);
+  inherited;
+end;
 
 end.