Changeset 184 for trunk/UAcronym.pas

Timestamp:

Jul 4, 2018, 2:05:48 PM (6 years ago)

Author:

chronos

Message:

• Added: New menu action Tools - Document check which shows a form for checking acronyms in text documents.
• Added: Remember dimensions of Import, Export and Settings forms.

File:

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

trunk/UAcronym.pas

@@ -17 +17 @@
   TImportSources = class;
   TImportFormats = class;
+
+  TSearchFlag = (sfCaseInsensitive);
+  TSearchFlags = set of TSearchFlag;
 
   { TAcronym }
@@ -36 +39 @@
     procedure SaveToNode(Node: TDOMNode);
     procedure LoadFromNode(Node: TDOMNode);
-    function SearchByName(Name: string): TAcronym;
+    function SearchByName(Name: string; Flags: TSearchFlags = []): TAcronym;
     function AddAcronym(Name: string): TAcronym;
   end;
@@ -65 +68 @@
     procedure SaveToNode(Node: TDOMNode);
     procedure LoadFromNode(Node: TDOMNode);
-    function SearchByName(Name: string): TAcronymMeaning;
+    function SearchByName(Name: string; Flags: TSearchFlags = []): TAcronymMeaning;
     function AddMeaning(Name: string): TAcronymMeaning;
   end;
@@ -237 +240 @@
     function GetMeaningsCount: Integer;
     function AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
+    function SearchAcronym(AcronymName, MeaningName: string; Flags: TSearchFlags = []): TAcronymMeaning;
     procedure RemoveMeaning(Meaning: TAcronymMeaning);
     procedure RemoveAcronym(AcronymName, MeaningName: string);
@@ -1031 +1035 @@
 end;
 
-function TAcronymMeanings.SearchByName(Name: string): TAcronymMeaning;
+function TAcronymMeanings.SearchByName(Name: string; Flags: TSearchFlags
+  ): TAcronymMeaning;
 var
   I: Integer;
 begin
   I := 0;
-  while (I < Count) and (TAcronymMeaning(Items[I]).Name <> Name) do Inc(I);
+  if sfCaseInsensitive in Flags then begin
+    while (I < Count) and (LowerCase(TAcronymMeaning(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
+  end else begin
+    while (I < Count) and (TAcronymMeaning(Items[I]).Name <> Name) do Inc(I);
+  end;
   if I < Count then Result := TAcronymMeaning(Items[I])
     else Result := nil;
@@ -1152 +1161 @@
 end;
 
-function TAcronyms.SearchByName(Name: string): TAcronym;
+function TAcronyms.SearchByName(Name: string; Flags: TSearchFlags = []): TAcronym;
 var
   I: Integer;
 begin
   I := 0;
-  while (I < Count) and (TAcronym(Items[I]).Name <> Name) do Inc(I);
+  if sfCaseInsensitive in Flags then begin
+    while (I < Count) and (LowerCase(TAcronym(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
+  end else begin
+    while (I < Count) and (TAcronym(Items[I]).Name <> Name) do Inc(I);
+  end;
   if I < Count then Result := TAcronym(Items[I])
     else Result := nil;
@@ -1684 +1697 @@
 end;
 
+function TAcronymDb.SearchAcronym(AcronymName, MeaningName: string;
+  Flags: TSearchFlags = []): TAcronymMeaning;
+var
+  Acronym: TAcronym;
+  Meaning: TAcronymMeaning;
+begin
+  Result := nil;
+  Acronym := Acronyms.SearchByName(AcronymName);
+  if Assigned(Acronym) then begin
+    Meaning := Acronym.Meanings.SearchByName(MeaningName, Flags);
+    if Assigned(Meaning) then begin
+      Result := Meaning;
+    end;
+  end;
+end;
+
 procedure TAcronymDb.RemoveMeaning(Meaning: TAcronymMeaning);
 var