Changeset 28 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2016, 4:28:22 PM (9 years ago)

Author:

chronos

Message:

• Added: Import format items can be repetitive.
• Added: Show total count of imported items.
• Added: Button for direct open of import format definition from import source window.

File:

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

trunk/Forms/UFormMain.pas

@@ -119 +119 @@
   FormMain: TFormMain;
 
+resourcestring
+  SAddedCount = 'Imported %d acronyms';
+
+
 implementation
 
@@ -252 +256 @@
 var
   I: Integer;
-begin
-  for I := 0 to AcronymDb.ImportSources.Count - 1 do
+  TotalItemCount: Integer;
+begin
+  TotalItemCount := 0;
+  for I := 0 to AcronymDb.ImportSources.Count - 1 do begin
     TImportSource(AcronymDb.ImportSources[I]).Process;
+    TotalItemCount := TotalItemCount + TImportSource(AcronymDb.ImportSources[I]).ItemCount;
+  end;
+  ShowMessage(Format(SAddedCount, [TotalItemCount]));
   UpdateAcronymsList;
   UpdateInterface;