feature/add-ExistGuidInIniFile-in-OpenExternalMod

Author: César Cardoso

Src/OpenExternal/C4D.Wizard.OpenExternal.Interfaces.pas

@@ -16,8 +16,9 @@ interface
     ['{08D4836C-F789-4228-8773-D9A1DC15AB57}']
     function WriteInIniFile(AC4DWizardOpenExternal: TC4DWizardOpenExternal): IC4DWizardOpenExternalModel;
     function SaveIconInFolder(const AGuid, APathIcon: string): IC4DWizardOpenExternalModel;
-    function ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
+    //function ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
     procedure ReadIniFile(AProc: TProc<TC4DWizardOpenExternal>);
+    function ExistGuidInIniFile(const AGuid: string): Boolean;
     procedure RemoveGuidInIniFile(const AGuid: string);
   end;
 

Src/OpenExternal/C4D.Wizard.OpenExternal.Model.pas

@@ -17,8 +17,9 @@   TC4DWizardOpenExternalModel = class(TInterfacedObject, IC4DWizardOpenExternalM
   protected
     function WriteInIniFile(AC4DWizardOpenExternal: TC4DWizardOpenExternal): IC4DWizardOpenExternalModel;
     function SaveIconInFolder(const AGuid, APathIcon: string): IC4DWizardOpenExternalModel;
-    function ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
+    //function ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
     procedure ReadIniFile(AProc: TProc<TC4DWizardOpenExternal>);
+    function ExistGuidInIniFile(const AGuid: string): Boolean;
     procedure RemoveGuidInIniFile(const AGuid: string);
   public
     class function New: IC4DWizardOpenExternalModel;
@@ -87,7 +88,40 @@ function TC4DWizardOpenExternalModel.SaveIconInFolder(const AGuid, APathIcon: st
   TC4DWizardUtils.FileCopy(APathIcon, LFileNameToSave);
 end;
 
-function TC4DWizardOpenExternalModel.ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
+function TC4DWizardOpenExternalModel.ExistGuidInIniFile(const AGuid: string): Boolean;
+var
+  LIniFile: TIniFile;
+  LSections: TStrings;
+  LSessaoStr: string;
+  i: Integer;
+  LGuid: string;
+begin
+  Result := False;
+
+  if(AGuid.Trim.ISEmpty)then
+    Exit;
+
+  LIniFile := Self.GetIniFile;
+  try
+    LSections := TStringList.Create;
+    try
+      LIniFile.ReadSections(LSections);
+      for i := 0 to Pred(LSections.Count) do
+      begin
+        LSessaoStr := LSections[i];
+        LGuid := LIniFile.Readstring(LSessaoStr, TC4DConsts.OPEN_EXTERNAL_INI_GuidMenuMaster, '');
+        if(LGuid = AGuid)then
+          Exit(True);
+      end;
+    finally
+      LSections.Free;
+    end;
+  finally
+    LIniFile.Free;
+  end;
+end;
+
+{function TC4DWizardOpenExternalModel.ReadGuidInIniFile(AGuid: string): TC4DWizardOpenExternal;
 var
   LIniFile: TIniFile;
 begin
@@ -111,7 +145,7 @@ function TC4DWizardOpenExternalModel.ReadGuidInIniFile(AGuid: string): TC4DWizar
   finally
     LIniFile.Free;
   end;
-end;
+end; }
 
 procedure TC4DWizardOpenExternalModel.ReadIniFile(AProc: TProc<TC4DWizardOpenExternal>);
 var

Src/OpenExternal/C4D.Wizard.OpenExternal.View.pas

@@ -408,6 +408,9 @@ procedure TC4DWizardOpenExternalView.btnRemoveClick(Sender: TObject);
   if(LGuid.Trim.IsEmpty)then
     TC4DWizardUtils.ShowMsgErrorAndAbort('Guid not found');
 
+  if(TC4DWizardOpenExternalModel.New.ExistGuidInIniFile(LGuid))then
+    TC4DWizardUtils.ShowMsgAndAbort('This registration cannot be deleted, as it is linked to other registration(s)');
+
   if(not TC4DWizardUtils.ShowQuestion2('Confirm remove?'))then
     Exit;