Changeset 120 for trunk/UCore.pas

Timestamp:

Feb 19, 2022, 12:09:21 AM (3 years ago)

Author:

chronos

Message:

• Added: Partially implemented contacts compare.

File:

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

trunk/UCore.pas

@@ -17 +17 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    AFileCompare: TAction;
     AViewSource: TAction;
     ATest: TAction;
@@ -47 +48 @@
     procedure AExitExecute(Sender: TObject);
     procedure AFileCombineExecute(Sender: TObject);
+    procedure AFileCompareExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
@@ -110 +112 @@
 uses
   UFormMain, UFormSettings, UContact, UFormContacts, UFormFindDuplicity,
-  UFormGenerate, UFormError, UFormFind, UFormTest, UFormSource;
+  UFormGenerate, UFormError, UFormFind, UFormTest, UFormSource, UFormCompare;
 
 resourcestring
@@ -163 +165 @@
     ShowMessage(Format(SCombinedContacts, [LoadedFiles]));
     UpdateFile;
+  end;
+end;
+
+procedure TCore.AFileCompareExecute(Sender: TObject);
+var
+  TempFile: TDataFile;
+  LeftContacts: TContactsFile;
+  RightContacts: TContactsFile;
+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
+    with TFormCompare.Create(nil) do
+    try
+      LeftContacts := TContactsFile(DefaultDataFileClass.Create);
+      RightContacts := TContactsFile(DefaultDataFileClass.Create);
+      try
+        LeftContacts.Assign(TContactsFile(DataFile));
+        LeftSide := LeftContacts;
+        RightContacts.LoadFromFile(OpenDialog1.FileName);
+        RightSide := RightContacts;
+        ShowModal;
+      finally
+        LeftContacts.Free;
+        RightContacts.Free;
+      end;
+    finally
+      Free;
+    end;
   end;
 end;
@@ -553 +594 @@
   AFileSplit.Enabled := Assigned(DataFile);
   AFileCombine.Enabled := Assigned(DataFile);
+  AFileCompare.Enabled := Assigned(DataFile);
   AFind.Enabled := Assigned(DataFile);
   AFindDuplicate.Enabled := Assigned(DataFile);