Changeset 152 for trunk/UAcronym.pas

Timestamp:

Oct 16, 2017, 3:05:22 PM (7 years ago)

Author:

chronos

Message:

• Added: Status bar to show total number of acronyms and their meanings. Status bar can be hidden.

File:

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

trunk/UAcronym.pas

@@ -235 +235 @@
     procedure SaveToFileCSV(FileName: string);
     procedure FilterList(AName: string; Items: TAcronymMeanings);
+    function GetMeaningsCount: Integer;
     function AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
     procedure RemoveMeaning(Meaning: TAcronymMeaning);
@@ -1650 +1651 @@
 end;
 
+function TAcronymDb.GetMeaningsCount: Integer;
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 0 to Acronyms.Count - 1 do
+    Result := Result + TAcronym(Acronyms[I]).Meanings.Count;
+end;
+
 function TAcronymDb.AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
 var