Changeset 152 for trunk/Core.pas

Timestamp:

Jun 6, 2023, 5:05:18 PM (18 months ago)

Author:

chronos

Message:

• Added: VCardProcessor class for processing contacts available from VCard package.
• Added: Normalize menu action for normalization of contact property values.

File:

• trunk/Core.pas (modified) (7 diffs)

trunk/Core.pas

@@ -16 +16 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    ANormalize: TAction;
     ARemoveExactDuplicates: TAction;
     AFileCompare: TAction;
@@ -60 +61 @@
     procedure AGenerateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
+    procedure ANormalizeExecute(Sender: TObject);
     procedure ARemoveExactDuplicatesExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -102 +104 @@
     ToolbarVisible: Boolean;
     DefaultVcardVersion: string;
-    DefaultPhoneCountryPrefix: string;
+    DefaultPhoneCountryCode: string;
+    DefaultInternationalCallPrefix: string;
     CompareTool: string;
     function GetProfileImage: TImage;
@@ -126 +129 @@
 
 uses
-  FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase,
+  FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
   FormGenerate, FormError, FormFind, FormTest, FormSource, FormCompareSideBySide,
   TestCases;
@@ -285 +288 @@
 end;
 
+procedure TCore.ANormalizeExecute(Sender: TObject);
+var
+  FormNormalize: TFormNormalize;
+begin
+  FormNormalize := TFormNormalize.Create(nil);
+  try
+    FormNormalize.ShowModal;
+  finally
+    FreeAndNil(FormNormalize);
+  end;
+end;
+
 procedure TCore.ARemoveExactDuplicatesExecute(Sender: TObject);
 var
@@ -540 +555 @@
     LastQrCodeFileName := ReadStringWithDefault('LastQrCodeFileName', '');
     CompareTool := ReadStringWithDefault('CompareTool', GetDefaultCompareTool);
-    DefaultPhoneCountryPrefix := ReadStringWithDefault('DefaultPhoneCountryPrefix', DefaultPhoneCountryPrefix);
+    DefaultPhoneCountryCode := ReadStringWithDefault('DefaultPhoneCountryPrefix', DefaultPhoneCountryCode);
+    DefaultInternationalCallPrefix := ReadStringWithDefault('DefaultInternationalCallPrefix', DefaultInternationalCallPrefix);
   finally
     Free;
@@ -568 +584 @@
     WriteString('LastQrCodeFileName', LastQrCodeFileName);
     WriteString('CompareTool', CompareTool);
-    WriteString('DefaultPhoneCountryPrefix', DefaultPhoneCountryPrefix);
+    WriteString('DefaultPhoneCountryPrefix', DefaultPhoneCountryCode);
+    WriteString('DefaultInternationalCallPrefix', DefaultInternationalCallPrefix);
   finally
     Free;