Changeset 97 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Aug 22, 2016, 1:16:56 PM (8 years ago)

Author:

chronos

Message:

• Added: Add support for acronym category selection in import source format.
• Modified: Optimalized export speed.
• Fixed: Export to MediaWiki tables was not correctly generated for multi line strings.
• Fixed: Add back links from categories to import sources.
• Added: Multi select support in category list.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (2 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -131 +131 @@
       Meaning.Description := TempEntry.Description;
       Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+
+      // Update reverse references
       for I := 0 to Meaning.Categories.Count - 1 do
-        TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+        if TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.IndexOf(Meaning) = -1 then
+          TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+
       UpdateAcronymsList;
       UpdateInterface;
@@ -173 +177 @@
           Meaning.Description := TempEntry.Description;
           Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+
+          // Update reverse references
           for I := 0 to Meaning.Categories.Count - 1 do
-            TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+            if TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.IndexOf(Meaning) = -1 then
+              TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+
           UpdateAcronymsList;
           UpdateInterface;