Changeset 67

Timestamp:

Jul 28, 2016, 1:19:28 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Number of acronyms per category was not updated properly after import source was processed.

File:

• trunk/UAcronym.pas (modified) (2 diffs)

trunk/UAcronym.pas

@@ -425 +425 @@
   Q: Integer;
   I: Integer;
+  J: Integer;
   T: string;
   LastLength: Integer;
@@ -498 +499 @@
               AddedAcronym := Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
               AddedAcronym.Description := NewAcronym.Description;
-              AddedAcronym.Categories.Assign(Categories, laOr);
+
+              // Merge categories
+              for J := 0 to Categories.Count - 1 do
+              if AddedAcronym.Categories.IndexOf(Categories[J]) = -1 then begin
+                AddedAcronym.Categories.Add(Categories[J]);
+                TAcronymCategory(Categories[J]).AcronymMeanings.Add(AddedAcronym);
+              end;
               Inc(ItemCount);
             end;