Changeset 28 for trunk/UDatabase.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/UDatabase.pas (modified) (7 diffs)

trunk/UDatabase.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, ExtCtrls, StdCtrls, EditBtn, dialogs, USqlDatabase,
-  URegistry, UGenerics, Generics.Collections;
+  Classes, SysUtils, ExtCtrls, dialogs, USqlDatabase, URegistry, UGenerics,
+  Generics.Collections;
 
 type
@@ -561 +561 @@
   Count := Source.Count;
   for I := OldCount to Count - 1 do
-    //ShowMessage(TValue(Source.Items[I]).ClassName);
     Items[I] := TValueClass(Source.Items[I].ClassType).Create;
   for I := 0 to Count - 1 do
@@ -631 +630 @@
 begin
   I := 0;
-  while (I < Count) and (TField(Items[I]).Name <> Name) do Inc(I);
-  if I < Count then Result := TField(Items[I])
+  while (I < Count) and (Items[I].Name <> Name) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -672 +671 @@
     FieldIndex := Parent.Fields.IndexOf(Field);
     if Assigned(Field) then begin
-      if TValue(Values[FieldIndex]).GetString <> AValues.ValueFromIndex[I] then begin
+      if Values[FieldIndex].GetString <> AValues.ValueFromIndex[I] then begin
         Result := False;
         Break;
@@ -686 +685 @@
   Values.Clear;
   for I := 0 to Parent.Fields.Count - 1 do
-    Values.Add(TField(Parent.Fields[I]).GetValueClass.Create);
+    Values.Add(Parent.Fields[I].GetValueClass.Create);
 end;
 
@@ -823 +822 @@
   DbRows := TDbRows.Create;
   try
-    DbClient.Query('SELECT COUNT(*) AS `Count` FROM ' + Name, DbRows);
+    DbClient.Query('SELECT COUNT(*) FROM ' + Name, DbRows);
     if DbRows.Count = 1 then begin
-      RecordsCount := StrToInt(DbRows[0].Items['Count']);
+      RecordsCount := StrToInt(DbRows[0].Items['COUNT(*)']);
     end else RecordsCount := 0;
   finally
@@ -852 +851 @@
   FreeAndNil(Fields);
   FreeAndNil(Records);
-  inherited Destroy;
+  inherited;
 end;