Changeset 231 for trunk/Forms/FormCategories.pas

Timestamp:

Jan 25, 2025, 12:11:20 PM (8 days ago)

Author:

chronos

Message:

• Fixed: Error on new acronym cateogry addition.
• Added: New import source from Wikipedia aviation acronyms.

File:

• trunk/Forms/FormCategories.pas (modified) (1 diff)

trunk/Forms/FormCategories.pas

@@ -89 +89 @@
 var
   S: string;
+  NewCategory: TAcronymCategory;
 begin
   S := InputBox(SCategory, SCategoryQuery, '');
   if S <> '' then begin
     if not Assigned(AcronymDb.Categories.SearchByName(S)) then begin;
-      TAcronymCategory(AcronymDb.Categories[AcronymDb.Categories.Add(TAcronymCategory.Create)]).Name := S;
+      NewCategory := TAcronymCategory.Create;
+      NewCategory.AcronymDb := Categories.Db;
+      NewCategory.Name := S;
+      Categories.Add(NewCategory);
+
       AcronymDb.Modified := True;
       AcronymDb.Update;