Changeset 26 for trunk/Forms/UFormTables.pas

Timestamp:

Sep 10, 2022, 8:03:08 PM (2 years ago)

Author:

chronos

Message:

• Removed: TemplateGenerics as required package. Used Generics.Collections instead.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormTables.pas (modified) (8 diffs)

trunk

@@ -7 +7 @@
 heaptrclog.trc
 MyData.exe
+MyData.dbg
+

@@ -7 +7 @@
 heaptrclog.trc
 MyData.exe
+MyData.dbg
+

trunk/Forms/UFormTables.pas

@@ -1 +1 @@
 unit UFormTables;
-
-{$mode delphi}{$H+}
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UDatabase, SpecializedDictionary;
+  ActnList, Menus, UDatabase;
 
 type
@@ -38 +36 @@
     procedure AShowFieldsExecute(Sender: TObject);
     procedure AShowRecordsExecute(Sender: TObject);
-    procedure FormActivate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -60 +56 @@
   FormTables: TFormTables;
 
+
 implementation
 
@@ -71 +68 @@
   SRemoveTableConfirm = 'Do you want to really remove table ''%s'' ?';
   SNewTable = 'New table';
-
 
 { TFormTables }
@@ -202 +198 @@
 end;
 
-procedure TFormTables.FormActivate(Sender: TObject);
-begin
-end;
-
-procedure TFormTables.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-end;
-
 procedure TFormTables.FormCreate(Sender: TObject);
 begin
@@ -217 +205 @@
 procedure TFormTables.FormDestroy(Sender: TObject);
 begin
-  FTables.Free;
+  FreeAndNil(FTables);
 end;
 
@@ -241 +229 @@
     DbClient.Query('SELECT * FROM Model', DbRows);
     for I := 0 to DbRows.Count - 1 do begin
-      NewTable := Tables.AddNew(TDictionaryStringString(DbRows[I]).Values['Name']);
-      NewTable.Caption := TDictionaryStringString(DbRows[I]).Values['Caption'];
+      NewTable := Tables.AddNew(DbRows[I].Items['Name']);
+      NewTable.Caption := DbRows[I].Items['Caption'];
     end;
     DbRows.Free;

@@ -7 +7 @@
 heaptrclog.trc
 MyData.exe
+MyData.dbg
+