Changeset 4 for trunk/UAcronym.pas

Timestamp:

Apr 20, 2016, 11:11:26 PM (8 years ago)

Author:

chronos

Message:

• Added: Now it is possible to add, modify, remove and remove all acronyms.

File:

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

trunk/UAcronym.pas

@@ -42 +42 @@
   TAcronymMeanings = class(TObjectList)
     function SearchByName(Name: string): TAcronymMeaning;
+    function AddMeaning(Name: string): TAcronymMeaning;
   end;
 
@@ -48 +49 @@
   TAcronyms = class(TObjectList)
     function SearchByName(Name: string): TAcronym;
+    function AddAcronym(Name: string): TAcronym;
   end;
 
@@ -63 +65 @@
   TAcronymContexts = class(TObjectList)
     function SearchByName(Name: string): TAcronymContext;
+    function AddContext(Name: string): TAcronymContext;
+  end;
+
+  TAcronymEntry = class
+    Name: string;
+    Meaning: string;
   end;
 
@@ -76 +84 @@
     procedure SaveToFile(FileName: string);
     procedure FilterList(AName: string; Items: TAcronymMeanings);
+    procedure AddAcronym(AcronymName, MeaningName: string);
+    procedure RemoveAcronym(AcronymName, MeaningName: string);
   end;
 
@@ -92 +102 @@
 end;
 
+function TAcronymMeanings.AddMeaning(Name: string): TAcronymMeaning;
+begin
+  Result := TAcronymMeaning.Create;
+  Result.Name := Name;
+  Add(Result);
+end;
+
 { TAcronymMeaning }
 
@@ -117 +134 @@
 end;
 
+function TAcronyms.AddAcronym(Name: string): TAcronym;
+begin
+  Result := TAcronym.Create;
+  Result.Name := Name;
+  Add(Result);
+end;
+
 { TAcronymContexts }
 
@@ -127 +151 @@
   if I < Count then Result := TAcronymContext(Items[I])
     else Result := nil;
+end;
+
+function TAcronymContexts.AddContext(Name: string): TAcronymContext;
+begin
+  Result := TAcronymContext.Create;
+  Result.Name := Name;
+  Add(Result);
 end;
 
@@ -280 +311 @@
 end;
 
+procedure TAcronymDb.AddAcronym(AcronymName, MeaningName: string);
+var
+  Acronym: TAcronym;
+  Meaning: TAcronymMeaning;
+begin
+  Acronym := Acronyms.SearchByName(AcronymName);
+  if not Assigned(Acronym) then begin
+    Acronym := TAcronym.Create;
+    Acronym.Name := AcronymName;
+    Acronyms.Add(Acronym);
+  end;
+  Meaning := Acronym.Meanings.SearchByName(MeaningName);
+  if not Assigned(Meaning) then begin
+    Meaning := TAcronymMeaning.Create;
+    Meaning.Name := MeaningName;
+    Meaning.Acronym := Acronym;
+    Acronym.Meanings.Add(Meaning);
+  end;
+end;
+
+procedure TAcronymDb.RemoveAcronym(AcronymName, MeaningName: string);
+var
+  Acronym: TAcronym;
+  Meaning: TAcronymMeaning;
+begin
+  Acronym := Acronyms.SearchByName(AcronymName);
+  if Assigned(Acronym) then begin
+    Meaning := Acronym.Meanings.SearchByName(MeaningName);
+    if Assigned(Meaning) then begin
+      Acronym.Meanings.Remove(Meaning);
+      if Acronym.Meanings.Count = 0 then
+        Acronyms.Remove(Acronym);
+    end;
+  end;
+end;
+
 end.