Changeset 15 for trunk/UAcronym.pas

Timestamp:

Apr 29, 2016, 12:09:44 AM (8 years ago)

Author:

chronos

Message:

• Modified: Now project file have XML structure. Loading and saving old format is still supported using .csv extension.
• Fixed: Question before closing modified unsaved project.

File:

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

trunk/UAcronym.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Contnrs, XMLConf, XMLRead, XMLWrite, DOM, UXMLUtils;
 
 type
   TAcronymCategories = class;
   TAcronymMeanings = class;
+  TAcronymDb = class;
 
   TAcronymSource = class
@@ -24 +25 @@
 
   TAcronym = class
+    Db: TAcronymDb;
     Name: string;
     Meanings: TAcronymMeanings;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
+  end;
+
+  { TAcronyms }
+
+  TAcronyms = class(TObjectList)
+    Db: TAcronymDb;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+    function SearchByName(Name: string): TAcronym;
+    function AddAcronym(Name: string): TAcronym;
   end;
 
@@ -39 +53 @@
     Categories: TAcronymCategories;
     Source: TAcronymSource;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
@@ -46 +62 @@
 
   TAcronymMeanings = class(TObjectList)
+    Acronym: TAcronym;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     function SearchByName(Name: string): TAcronymMeaning;
     function AddMeaning(Name: string): TAcronymMeaning;
   end;
 
-  { TAcronyms }
-
-  TAcronyms = class(TObjectList)
-    function SearchByName(Name: string): TAcronym;
-    function AddAcronym(Name: string): TAcronym;
-  end;
-
   { TAcronymCategory }
 
   TAcronymCategory = class
+    Id: Integer;
     Name: string;
     AcronymMeanings: TAcronymMeanings;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
@@ -69 +84 @@
 
   TAcronymCategories = class(TObjectList)
+    procedure UpdateIds;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
     function SearchByName(Name: string): TAcronymCategory;
+    function SearchById(Id: Integer): TAcronymCategory;
     function AddContext(Name: string): TAcronymCategory;
     procedure AssignToStrings(Strings: TStrings);
@@ -98 +117 @@
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
+    procedure LoadFromFileCSV(FileName: string);
+    procedure SaveToFileCSV(FileName: string);
     procedure FilterList(AName: string; Items: TAcronymMeanings);
     function AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
@@ -105 +126 @@
 function AcronymComparer(Item1, Item2: Pointer): Integer;
 
+
 implementation
+
+resourcestring
+  SWrongFileFormat = 'Wrong file format';
 
 function AcronymComparer(Item1, Item2: Pointer): Integer;
@@ -126 +151 @@
 
 { TAcronymMeanings }
+
+procedure TAcronymMeanings.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do
+  with TAcronymMeaning(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('Meaning');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TAcronymMeanings.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TAcronymMeaning;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Meaning') do begin
+    NewItem := TAcronymMeaning.Create;
+    NewItem.Acronym := Acronym;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
 
 function TAcronymMeanings.SearchByName(Name: string): TAcronymMeaning;
@@ -146 +200 @@
 { TAcronymMeaning }
 
+procedure TAcronymMeaning.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+  I: Integer;
+begin
+  WriteString(Node, 'Name', Name);
+  WriteString(Node, 'Description', Description);
+  WriteString(Node, 'Language', Language);
+
+  NewNode := Node.OwnerDocument.CreateElement('Categories');
+  Node.AppendChild(NewNode);
+  for I := 0 to Categories.Count - 1 do begin
+    NewNode2 := NewNode.OwnerDocument.CreateElement('Category');
+    NewNode.AppendChild(NewNode2);
+    WriteInteger(NewNode2, 'Id', TAcronymCategory(Categories[I]).Id);
+  end;
+end;
+
+procedure TAcronymMeaning.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  Node3: TDOMNode;
+  Category: TAcronymCategory;
+  Id: Integer;
+begin
+  Name := ReadString(Node, 'Name', '');
+  Description := ReadString(Node, 'Description', '');
+  Language := ReadString(Node, 'Language', '');
+
+  Node3 := Node.FindNode('Categories');
+  if Assigned(Node3) then begin
+    Node2 := Node3.FirstChild;
+    while Assigned(Node2) and (Node2.NodeName = 'Category') do begin
+      Id := ReadInteger(Node2, 'Id', 0);
+      Category := Acronym.Db.Categories.SearchById(Id);
+      if Assigned(Category) then begin
+        Categories.Add(Category);
+        Category.AcronymMeanings.Add(Self);
+      end;
+      Node2 := Node2.NextSibling;
+    end;
+  end;
+end;
+
 constructor TAcronymMeaning.Create;
 begin
@@ -163 +262 @@
 { TAcronyms }
 
+procedure TAcronyms.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do
+  with TAcronym(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('Acronym');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TAcronyms.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TAcronym;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Acronym') do begin
+    NewItem := TAcronym.Create;
+    NewItem.Db := Db;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
 function TAcronyms.SearchByName(Name: string): TAcronym;
 var
@@ -182 +310 @@
 { TAcronymCategories }
 
+procedure TAcronymCategories.UpdateIds;
+var
+  LastId: Integer;
+  I: Integer;
+begin
+  // Get highest used ID
+  LastId := 0;
+  for I := 0 to Count - 1 do begin
+    if TAcronymCategory(Items[I]).Id > LastId then LastId := TAcronymCategory(Items[I]).Id;
+  end;
+  // Add ID to new items without ID
+  for I := 0 to Count - 1 do begin
+    if TAcronymCategory(Items[I]).Id = 0 then begin
+      Inc(LastId);
+      TAcronymCategory(Items[I]).Id := LastId;
+    end;
+  end;
+end;
+
+procedure TAcronymCategories.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  UpdateIds;
+  for I := 0 to Count - 1 do
+  with TAcronymCategory(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('Category');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TAcronymCategories.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TAcronymCategory;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Category') do begin
+    NewItem := TAcronymCategory.Create;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+  UpdateIds;
+end;
+
 function TAcronymCategories.SearchByName(Name: string): TAcronymCategory;
 var
@@ -192 +369 @@
 end;
 
+function TAcronymCategories.SearchById(Id: Integer): TAcronymCategory;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TAcronymCategory(Items[I]).Id <> Id) do Inc(I);
+  if I < Count then Result := TAcronymCategory(Items[I])
+    else Result := nil;
+end;
+
 function TAcronymCategories.AddContext(Name: string): TAcronymCategory;
 begin
@@ -221 +408 @@
 { TAcronym }
 
+procedure TAcronym.SaveToNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  WriteString(Node, 'Name', Name);
+
+  NewNode := Node.OwnerDocument.CreateElement('Meanings');
+  Node.AppendChild(NewNode);
+  Meanings.SaveToNode(NewNode);
+end;
+
+procedure TAcronym.LoadFromNode(Node: TDOMNode);
+var
+  NewNode: TDOMNode;
+begin
+  Name := ReadString(Node, 'Name', '');
+
+  NewNode := Node.FindNode('Meanings');
+  if Assigned(NewNode) then
+    Meanings.LoadFromNode(NewNode);
+end;
+
 constructor TAcronym.Create;
 begin
   Meanings := TAcronymMeanings.Create;
+  Meanings.Acronym := Self;
 end;
 
@@ -233 +443 @@
 
 { TAcronymCategory }
+
+procedure TAcronymCategory.SaveToNode(Node: TDOMNode);
+begin
+  WriteString(Node, 'Name', Name);
+  WriteInteger(Node, 'Id', Id);
+end;
+
+procedure TAcronymCategory.LoadFromNode(Node: TDOMNode);
+begin
+  Name := ReadString(Node, 'Name', '');
+  Id := ReadInteger(Node, 'Id', 0);
+end;
 
 constructor TAcronymCategory.Create;
@@ -255 +477 @@
   Sources := TAcronymSources.Create;
   Acronyms := TAcronyms.Create;
+  Acronyms.Db := Self;
   Categories := TAcronymCategories.Create;
 end;
@@ -267 +490 @@
 
 procedure TAcronymDb.LoadFromFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+begin
+  if ExtractFileExt(FileName) = '.csv' then begin
+    LoadFromFileCSV(FileName);
+    Exit;
+  end;
+  Self.FileName := FileName;
+  ReadXMLFile(Doc, FileName);
+  with Doc do try
+    if Doc.DocumentElement.NodeName <> 'AcronymDecoderProject' then
+      raise Exception.Create(SWrongFileFormat);
+    RootNode := Doc.DocumentElement;
+    with RootNode do begin
+      NewNode := FindNode('Categories');
+      if Assigned(NewNode) then
+        Categories.LoadFromNode(NewNode);
+
+      // Load acronyms after categories because of references
+      NewNode := FindNode('Acronyms');
+      if Assigned(NewNode) then
+        Acronyms.LoadFromNode(NewNode);
+    end;
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TAcronymDb.SaveToFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+begin
+  if ExtractFileExt(FileName) = '.csv' then begin
+    SaveToFileCSV(FileName);
+    Exit;
+  end;
+  Self.FileName := FileName;
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('AcronymDecoderProject');
+    AppendChild(RootNode);
+    with RootNode do begin
+      NewNode := OwnerDocument.CreateElement('Categories');
+      AppendChild(NewNode);
+      Categories.SaveToNode(NewNode);
+
+      // Save acronyms after categories because of references
+      NewNode := OwnerDocument.CreateElement('Acronyms');
+      AppendChild(NewNode);
+      Acronyms.SaveToNode(NewNode);
+    end;
+    ForceDirectories(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, FileName);
+  finally
+    Doc.Free;
+  end;
+  Modified := False;
+end;
+
+procedure TAcronymDb.LoadFromFileCSV(FileName: string);
 var
   F: TStringList;
@@ -321 +608 @@
 end;
 
-procedure TAcronymDb.SaveToFile(FileName: string);
+procedure TAcronymDb.SaveToFileCSV(FileName: string);
 var
   I: Integer;