Changeset 227 for trunk/Forms/FormCategorySelect.pas

Timestamp:

Jan 20, 2025, 11:38:55 AM (42 hours ago)

Author:

chronos

Message:

• Modified: Do not reference global Core object if possible.

File:

• trunk/Forms/FormCategorySelect.pas (modified) (3 diffs)

trunk/Forms/FormCategorySelect.pas

@@ -18 +18 @@
     procedure ListBox1KeyPress(Sender: TObject; var Key: char);
   public
+    AcronymDb: TAcronymDb;
     procedure Load(RemoveItems: TStrings);
   end;
@@ -30 +31 @@
 
 {$R *.lfm}
-
-uses
-  Core;
 
 { TFormCategorySelect }
@@ -51 +49 @@
   I: Integer;
 begin
-  with Core.Core.AcronymDb do begin
+  with AcronymDb do begin
     ListBox1.Sorted := False;
     while ListBox1.Items.Count < Categories.Count do