refacotr/name-units-do-demo

Author: César Cardoso

Samples/Demo01/C4DValidateComponentsDemo01.dpr

@@ -2,14 +2,15 @@ program C4DValidateComponentsDemo01;
 
 uses
   Vcl.Forms,
-  C4DValidateComponentsDemo01.View.Main in 'Src\View\C4DValidateComponentsDemo01.View.Main.pas' {C4DValidateComponentsDemo01ViewMain},
+  C4D.ValidateComponents.Demo01.View.Main in 'Src\View\C4D.ValidateComponents.Demo01.View.Main.pas' {C4DValidateComponentsDemo01ViewMain},
   C4D.Validate.Components.Components in '..\..\Src\C4D.Validate.Components.Components.pas',
   C4D.Validate.Components.NotEmpty in '..\..\Src\C4D.Validate.Components.NotEmpty.pas',
   C4D.Validate.Components.Length in '..\..\Src\C4D.Validate.Components.Length.pas',
   C4D.Validate.Components.MinMaxValue in '..\..\Src\C4D.Validate.Components.MinMaxValue.pas',
   C4D.Validate.Components in '..\..\Src\C4D.Validate.Components.pas',
   C4D.Validate.Components.FieldDisplay in '..\..\Src\C4D.Validate.Components.FieldDisplay.pas',
-  C4D.Validate.Components.Helpers in '..\..\Src\C4D.Validate.Components.Helpers.pas';
+  C4D.Validate.Components.Helpers in '..\..\Src\C4D.Validate.Components.Helpers.pas',
+  C4D.ValidateComponents.Demo01.Utils in 'Src\Utils\C4D.ValidateComponents.Demo01.Utils.pas';
 
 {$R *.res}
 

Samples/Demo01/C4DValidateComponentsDemo01.dproj

@@ -98,7 +98,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="Src\View\C4DValidateComponentsDemo01.View.Main.pas">
+        <DCCReference Include="Src\View\C4D.ValidateComponents.Demo01.View.Main.pas">
             <Form>C4DValidateComponentsDemo01ViewMain</Form>
             <FormType>dfm</FormType>
         </DCCReference>
@@ -109,6 +109,7 @@
         <DCCReference Include="..\..\Src\C4D.Validate.Components.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.FieldDisplay.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.Helpers.pas"/>
+        <DCCReference Include="Src\Utils\C4D.ValidateComponents.Demo01.Utils.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

Samples/Demo01/Src/Utils/C4D.ValidateComponents.Demo01.Utils.pas

@@ -0,0 +1,45 @@
+unit C4D.ValidateComponents.Demo01.Utils;
+
+interface
+
+uses
+  System.SysUtils,
+  System.Classes,
+  Vcl.Graphics,
+  Vcl.Controls,
+  Vcl.Forms,
+  Vcl.Dialogs,
+  Vcl.StdCtrls,
+  Vcl.ExtCtrls,
+  Vcl.ComCtrls;
+
+type
+  TUtils = class
+  public
+    class procedure ClearAllFieldsForm(const AForm: TForm);
+  end;
+
+implementation
+
+class procedure TUtils.ClearAllFieldsForm(const AForm: TForm);
+var
+  i: Integer;
+  LComponent: TComponent;
+begin
+  for i := 0 to Pred(AForm.ComponentCount) do
+  begin
+    LComponent := AForm.Components[i];
+    if(LComponent is TEdit)then
+      TEdit(LComponent).Clear
+    else if(LComponent is TComboBox)then
+      TComboBox(LComponent).ItemIndex := -1
+    else if(LComponent is TCheckBox)then
+      TCheckBox(LComponent).Checked := False
+    else if(LComponent is TRadioGroup)then
+      TRadioGroup(LComponent).ItemIndex := -1
+    else if(LComponent is TMemo)then
+      TMemo(LComponent).Lines.Clear
+  end;
+end;
+
+end.

…4DValidateComponentsDemo01.View.Main.dfm ….ValidateComponents.Demo01.View.Main.dfmSamples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.dfm renamed to Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.dfm Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.dfm renamed to Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.dfm

@@ -1,10 +1,10 @@
-unit C4DValidateComponentsDemo01.View.Main;
+unit C4D.ValidateComponents.Demo01.View.Main;
 
 interface
 
 uses
   Winapi.Windows,
-  Winapi.Messages,
+
   System.SysUtils,
   System.Variants,
   System.Classes,
@@ -15,7 +15,7 @@ interface
   Vcl.StdCtrls,
   Vcl.ExtCtrls,
   Vcl.ComCtrls,
-  System.RTTI,
+  C4D.ValidateComponents.Demo01.Utils,
   C4D.Validate.Components;
 
 type
@@ -82,24 +82,8 @@ implementation
 {$R *.dfm}
 
 procedure TC4DValidateComponentsDemo01ViewMain.btnClearAllFieldsClick(Sender: TObject);
-var
-  i: Integer;
-  LComponent: TComponent;
 begin
-  for i := 0 to Pred(Self.ComponentCount) do
-  begin
-    LComponent := Self.Components[i];
-    if(LComponent is TEdit)then
-      TEdit(LComponent).Clear
-    else if(LComponent is TComboBox)then
-      TComboBox(LComponent).ItemIndex := -1
-    else if(LComponent is TCheckBox)then
-      TCheckBox(LComponent).Checked := False
-    else if(LComponent is TRadioGroup)then
-      TRadioGroup(LComponent).ItemIndex := -1
-    else if(LComponent is TMemo)then
-      TMemo(LComponent).Lines.Clear
-  end;
+  TUtils.ClearAllFieldsForm(Self);
 end;
 
 procedure TC4DValidateComponentsDemo01ViewMain.btnValidarClick(Sender: TObject);

…4DValidateComponentsDemo01.View.Main.pas ….ValidateComponents.Demo01.View.Main.pasSamples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.pas renamed to Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.pas Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.pas renamed to Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.pas

@@ -4,8 +4,7 @@ interface
 
 uses
   System.SysUtils,
-  System.RTTI,
-  System.TypInfo;
+  System.RTTI;
 
 type
   TRttiFieldyHelper = class helper for TRttiField