Changeset 192 for trunk/UAcronym.pas

Timestamp:

Jul 17, 2018, 2:39:01 PM (6 years ago)

Author:

chronos

Message:

• Added: Analysis of acronyms usage (without parentheses) in document content.
• Modified: Better reporting of acronyms with multiple meanings and with different meaning between content and summary acronyms.

File:

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

trunk/UAcronym.pas

@@ -70 +70 @@
     function SearchByName(Name: string; Flags: TSearchFlags = []): TAcronymMeaning;
     function AddMeaning(Name: string): TAcronymMeaning;
+    function GetNames: string;
   end;
 
@@ -1057 +1058 @@
 end;
 
+function TAcronymMeanings.GetNames: string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to Count - 1 do
+    Result := Result + ', "' + TAcronymMeaning(Items[I]).Name + '"';
+  System.Delete(Result, 1, 2);
+end;
+
 { TAcronymMeaning }