Changeset 14 for trunk/UAcronym.pas

Timestamp:

Apr 28, 2016, 10:56:31 PM (8 years ago)

Author:

chronos

Message:

• Added: Window for acronym categories management. There acronyms can be added, modifed and removed.

File:

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

trunk/UAcronym.pas

@@ -15 +15 @@
     Name: string;
     URL: string;
+  end;
+
+  TAcronymSources = class(TObjectList)
+
   end;
 
@@ -57 +61 @@
   TAcronymCategory = class
     Name: string;
-    Acronyms: TObjectList; // TObjectList<TAcronym>
+    AcronymMeanings: TAcronymMeanings;
     constructor Create;
     destructor Destroy; override;
@@ -86 +90 @@
   TAcronymDb = class
     FileName: string;
-    Sources: TObjectList; // TObjectList<TAcronymSource>
+    Sources: TAcronymSources;
     Acronyms: TAcronyms;
     Categories: TAcronymCategories;
@@ -148 +152 @@
 
 destructor TAcronymMeaning.Destroy;
-begin
+var
+  I: Integer;
+begin
+  for I := 0 to Categories.Count - 1 do
+    TAcronymCategory(Categories[I]).AcronymMeanings.Remove(Self);
   FreeAndNil(Categories);
   inherited Destroy;
@@ -205 +213 @@
 begin
   Clear;
-  for I := 0 to Strings.Count - 1 do
+  for I := 0 to Strings.Count - 1 do begin
     Add(TAcronymCategory(Strings.Objects[I]));
+  end;
 end;
 
@@ -227 +236 @@
 constructor TAcronymCategory.Create;
 begin
-  Acronyms := TObjectList.Create(False);
+  AcronymMeanings := TAcronymMeanings.Create(False);
 end;
 
 destructor TAcronymCategory.Destroy;
-begin
-  FreeAndNil(Acronyms);
+var
+  I: Integer;
+begin
+  for I := 0 to AcronymMeanings.Count - 1 do
+    TAcronymMeaning(AcronymMeanings[I]).Categories.Remove(Self);
+  FreeAndNil(AcronymMeanings);
   inherited Destroy;
 end;
@@ -240 +253 @@
 constructor TAcronymDb.Create;
 begin
-  Sources := TObjectList.Create;
+  Sources := TAcronymSources.Create;
   Acronyms := TAcronyms.Create;
   Categories := TAcronymCategories.Create;
-  TAcronymCategory(Categories[Categories.Add(TAcronymCategory.Create)]).Name := 'Internet';
-  TAcronymCategory(Categories[Categories.Add(TAcronymCategory.Create)]).Name := 'Software';
-  TAcronymCategory(Categories[Categories.Add(TAcronymCategory.Create)]).Name := 'Chat';
 end;
 
@@ -260 +270 @@
   F: TStringList;
   Line: TStringList;
-  Context: TStringList;
+  CategoryStrings: TStringList;
   NewAcronym: TAcronym;
   NewMeaning: TAcronymMeaning;
   I: Integer;
   J: Integer;
-  AcronymContext: TAcronymCategory;
+  AcronymCategory: TAcronymCategory;
 begin
   Self.FileName := FileName;
@@ -272 +282 @@
   Line := TStringList.Create;
   Line.StrictDelimiter := True;
-  Context := TStringList.Create;
-  Context.Delimiter := ';';
+  CategoryStrings := TStringList.Create;
+  CategoryStrings.Delimiter := ';';
   try
     F.LoadFromFile(FileName);
@@ -291 +301 @@
         NewAcronym.Meanings.Add(NewMeaning);
       end;
-      Context.DelimitedText := Line[2];
-      for J := 0 to Context.Count - 1 do begin
-        AcronymContext := Categories.SearchByName(Context[J]);
-        if not Assigned(AcronymContext) then begin
-          AcronymContext := TAcronymCategory.Create;
-          AcronymContext.Name := Context[J];
-          Categories.Add(AcronymContext);
+      CategoryStrings.DelimitedText := Line[2];
+      for J := 0 to CategoryStrings.Count - 1 do begin
+        AcronymCategory := Categories.SearchByName(CategoryStrings[J]);
+        if not Assigned(AcronymCategory) then begin
+          AcronymCategory := TAcronymCategory.Create;
+          AcronymCategory.Name := CategoryStrings[J];
+          Categories.Add(AcronymCategory);
         end;
-        NewMeaning.Categories.Add(AcronymContext);
+        NewMeaning.Categories.Add(AcronymCategory);
+        AcronymCategory.AcronymMeanings.Add(NewMeaning);
       end;
     end;
@@ -305 +316 @@
     F.Free;
     Line.Free;
-    Context.Free;
+    CategoryStrings.Free;
   end;
   Modified := False;