Changeset 14 for trunk/UCore.pas

Timestamp:

Feb 4, 2018, 2:01:05 PM (7 years ago)

Author:

chronos

Message:

• Added: New File menu action Merge. It can merge multiple vcard files and update values for items with same full name.

File:

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

trunk/UCore.pas

@@ -12 +12 @@
 type
 
+  { TMergeResult }
+
+  TMergeResult = record
+    Loaded: Integer;
+    New: Integer;
+    Updated: Integer;
+    procedure Clear;
+    class operator Add(const A, B: TMergeResult): TMergeResult;
+  end;
+
   { TCore }
 
   TCore = class(TDataModule)
     AAbout: TAction;
+    AFileMerge: TAction;
     ASettings: TAction;
     AFileOpenRecent: TAction;
@@ -36 +47 @@
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFileMergeExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
@@ -64 +76 @@
     procedure FileOpen(FileName: string);
     procedure FileClose;
+    function FileMerge(FileName: string): TMergeResult;
     procedure Initialize;
     procedure UpdateInterface;
@@ -83 +96 @@
   SAppExitQuery = 'File was modified. Do you want to save it before exit?';
   SFileNotFound = 'File ''%s'' not found.';
+  SMergedContacts = 'Contacts merged. Loaded: %d, New: %d, Updated: %d';
+
+{ TMergeResult }
+
+procedure TMergeResult.Clear;
+begin
+  Loaded := 0;
+  New := 0;
+  Updated := 0;
+end;
+
+class operator TMergeResult.Add(const A, B: TMergeResult): TMergeResult;
+begin
+  Result.Loaded := A.Loaded + B.Loaded;
+  Result.New := A.New + B.New;
+  Result.Updated := A.Updated + B.Updated;
+end;
 
 { TCore }
@@ -91 +121 @@
 end;
 
-procedure TCore.AAboutExecute(Sender: TObject);
-begin
-  FormAbout := TFormAbout.Create(nil);
-  try
-    FormAbout.ApplicationInfo := ApplicationInfo1;
-    FormAbout.ShowModal;
-  finally
-    FormAbout.Free;
-  end;
-end;
-
-procedure TCore.AFileCloseExecute(Sender: TObject);
-begin
-  FileClose;
-  UpdateFile;
-end;
-
-procedure TCore.AHomePageExecute(Sender: TObject);
-begin
-  OpenWebPage(ApplicationInfo1.HomePage);
-end;
-
-procedure TCore.ASettingsExecute(Sender: TObject);
-begin
-  FormSettings := TFormSettings.Create(nil);
-  try
-    FormSettings.LoadData;
-    if FormSettings.ShowModal = mrOK then
-      FormSettings.SaveData;
-  finally
-    FormSettings.Free;
-  end;
-end;
-
-procedure TCore.AFileNewExecute(Sender: TObject);
-begin
-  FileNew;
-  UpdateFile;
-end;
-
-procedure TCore.AFileOpenExecute(Sender: TObject);
+procedure TCore.AFileMergeExecute(Sender: TObject);
 var
   TempFile: TDataFile;
+  I: Integer;
+  MergeResult: TMergeResult;
+  TotalMergeResult: TMergeResult;
 begin
   TempFile := DefaultDataFileClass.Create;
@@ -146 +139 @@
     OpenDialog1.FileName := ExtractFileName(DataFile.FileName);
   end;
+  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
+  if OpenDialog1.Execute then begin
+    TotalMergeResult.Clear;
+    for I := 0 to OpenDialog1.Files.Count - 1 do begin
+      MergeResult := FileMerge(OpenDialog1.Files[I]);
+      TotalMergeResult := TotalMergeResult + MergeResult;
+    end;
+    ShowMessage(Format(SMergedContacts, [TotalMergeResult.Loaded,
+      TotalMergeResult.New, TotalMergeResult.Updated]));
+    UpdateFile;
+  end;
+end;
+
+procedure TCore.AAboutExecute(Sender: TObject);
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FormAbout.Free;
+  end;
+end;
+
+procedure TCore.AFileCloseExecute(Sender: TObject);
+begin
+  FileClose;
+  UpdateFile;
+end;
+
+procedure TCore.AHomePageExecute(Sender: TObject);
+begin
+  OpenWebPage(ApplicationInfo1.HomePage);
+end;
+
+procedure TCore.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.LoadData;
+    if FormSettings.ShowModal = mrOK then
+      FormSettings.SaveData;
+  finally
+    FormSettings.Free;
+  end;
+end;
+
+procedure TCore.AFileNewExecute(Sender: TObject);
+begin
+  FileNew;
+  UpdateFile;
+end;
+
+procedure TCore.AFileOpenExecute(Sender: TObject);
+var
+  TempFile: TDataFile;
+begin
+  TempFile := DefaultDataFileClass.Create;
+  try
+    OpenDialog1.Filter := TempFile.GetFileFilter;
+  finally
+    TempFile.Free;
+  end;
+  OpenDialog1.DefaultExt := '';
+  if Assigned(DataFile) then begin
+    OpenDialog1.InitialDir := ExtractFileDir(DataFile.FileName);
+    OpenDialog1.FileName := ExtractFileName(DataFile.FileName);
+  end;
+  OpenDialog1.Options := OpenDialog1.Options - [ofAllowMultiSelect];
   if OpenDialog1.Execute then begin
     FileOpen(OpenDialog1.FileName);
@@ -241 +303 @@
 end;
 
+function TCore.FileMerge(FileName: string): TMergeResult;
+var
+  TempFile: TContactsFile;
+  NewContact: TContact;
+  I: Integer;
+  CountNew: Integer;
+  CountUpdated: Integer;
+begin
+  Result.Clear;
+  if FileExists(FileName) then begin
+    TempFile := TContactsFile.Create;
+    try
+      TempFile.LoadFromFile(FileName);
+      Result.Loaded := TempFile.Contacts.Count;
+      for I := 0 to TempFile.Contacts.Count - 1 do begin
+        NewContact := TContactsFile(DataFile).Contacts.Search(TContact(TempFile.Contacts[I]).FullName);
+        if not Assigned(NewContact) then begin
+          NewContact := TContact.Create;
+          NewContact.Parent := TContactsFile(DataFile);
+          NewContact.Assign(TContact(TempFile.Contacts[I]));
+          TContactsFile(DataFile).Contacts.Add(NewContact);
+          Inc(Result.New);
+        end else begin
+          if NewContact.UpdateFrom(TContact(TempFile.Contacts[I])) then
+            Inc(Result.Updated);
+        end;
+      end;
+      TContactsFile(DataFile).Modified := True;
+    finally
+      TempFile.Free;
+    end;
+  end else ShowMessage(Format(SFileNotFound, [FileName]));
+end;
+
 procedure TCore.FileNew;
 begin
@@ -257 +353 @@
     FormContacts.Contacts := TContactsFile(DataFile).Contacts
     else FormContacts.Contacts := nil;
+  FormContacts.ReloadList;
 end;