feature/2023-11-22-1737

Author: César Cardoso

Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.dfm

@@ -2,7 +2,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
   Left = 0
   Top = 0
   Caption = 'C4D-validate-components - Demo01'
-  ClientHeight = 533
+  ClientHeight = 588
   ClientWidth = 662
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -17,17 +17,19 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
     Left = 0
     Top = 0
     Width = 662
-    Height = 533
+    Height = 588
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 0
+    ExplicitHeight = 533
     object pnTopo: TPanel
       Left = 0
       Top = 0
       Width = 662
-      Height = 488
+      Height = 543
       Align = alClient
       TabOrder = 0
+      ExplicitHeight = 488
       object Label1: TLabel
         Left = 24
         Top = 11
@@ -115,7 +117,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
       end
       object Memo1: TMemo
         Left = 24
-        Top = 247
+        Top = 262
         Width = 601
         Height = 34
         ScrollBars = ssVertical
@@ -130,10 +132,6 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
         TabOrder = 7
         object TabSheet1: TTabSheet
           Caption = 'TabSheet1'
-          ExplicitLeft = 0
-          ExplicitTop = 0
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object Edit2: TEdit
             Left = 32
             Top = 32
@@ -150,15 +148,11 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
             Top = 0
             Width = 545
             Height = 103
-            ActivePage = TabSheet4
+            ActivePage = TabSheet3
             Align = alClient
             TabOrder = 0
             object TabSheet3: TTabSheet
               Caption = 'TabSheet3'
-              ExplicitLeft = 0
-              ExplicitTop = 0
-              ExplicitWidth = 0
-              ExplicitHeight = 0
               object Edit1: TEdit
                 Left = 32
                 Top = 32
@@ -212,10 +206,19 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           end
         end
       end
+      object btnClearAllFields: TButton
+        Left = 28
+        Top = 489
+        Width = 75
+        Height = 25
+        Caption = 'Clear all fields'
+        TabOrder = 8
+        OnClick = btnClearAllFieldsClick
+      end
     end
     object pnBotoes: TPanel
       Left = 0
-      Top = 488
+      Top = 543
       Width = 662
       Height = 45
       Align = alBottom
@@ -224,6 +227,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
       Padding.Right = 3
       Padding.Bottom = 3
       TabOrder = 1
+      ExplicitTop = 488
       object btnValidar: TButton
         Left = 4
         Top = 4
@@ -233,6 +237,8 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
         Caption = 'Validar'
         TabOrder = 0
         OnClick = btnValidarClick
+        ExplicitLeft = 0
+        ExplicitTop = 6
       end
     end
   end

Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.pas

@@ -33,12 +33,12 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     edtCodigo: TEdit;
 
     [NotEmpty]
-    [Length(2, 5)]
-    //'Texto deve ter entre <min> e <max> caracteres'
+    [Length(5, 10)] //'Texto deve ter entre <min> e <max> caracteres'
     edtNome: TEdit;
 
+
     [NotEmpty]
-    [MinMaxValue(5, 50)]
+    [MinMaxValue(5, 10)]
     edtLimite: TEdit;
 
     [NotEmpty]
@@ -50,10 +50,12 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     [NotEmpty]
     edtTesteComAbas: TEdit;
 
+    [NotEmpty]
+    Memo1: TMemo;
+
     ckAtivo: TCheckBox;
     pnBotoes: TPanel;
     btnValidar: TButton;
-    Memo1: TMemo;
     PageControl1: TPageControl;
     TabSheet1: TTabSheet;
     Edit2: TEdit;
@@ -65,7 +67,9 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     Panel1: TPanel;
     GroupBox1: TGroupBox;
     Label5: TLabel;
+    btnClearAllFields: TButton;
     procedure btnValidarClick(Sender: TObject);
+    procedure btnClearAllFieldsClick(Sender: TObject);
   private
   public
   end;
@@ -77,14 +81,33 @@ 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;
+end;
 
 procedure TC4DValidateComponentsDemo01ViewMain.btnValidarClick(Sender: TObject);
 var
   LRttiContext: TRttiContext;
   LRttiType: TRttiType;
   LRttiField: TRttiField;
   LCustomAttribute: TCustomAttribute;
-  LComponent: TComponent;
 begin
   LRttiContext := TRttiContext.Create;
   try

Src/C4D.Validate.Components.Components.pas

@@ -24,16 +24,28 @@ implementation
 class function TC4DValidateComponentsComponents.GetTextFromComponent(const AComponent: TComponent): string;
 begin
   Result := '';
-  if(AComponent is TEdit)then
-    Result := Trim((AComponent as TEdit).Text)
-  else if(AComponent is TComboBox)then
-    Result := Trim((AComponent as TComboBox).Text)
-  else if(AComponent is TMemo)then
-    Result := Trim((AComponent as TMemo).Text)
-  else if(AComponent is TRadioGroup)then
-  begin
-    if(TRadioGroup(AComponent).ItemIndex >= 0)then
-      Result := TRadioGroup(AComponent).Items[TRadioGroup(AComponent).ItemIndex];
+  try
+    if(AComponent is TEdit)then
+      Exit(TEdit(AComponent).Text);
+
+    if(AComponent is TComboBox)then
+      Exit(TComboBox(AComponent).Text);
+
+    if(AComponent is TMemo)then
+      Exit(TMemo(AComponent).Text);
+
+    if(AComponent is TRadioGroup)then
+    begin
+      if(TRadioGroup(AComponent).ItemIndex >= 0)then
+        Result := TRadioGroup(AComponent).Items[TRadioGroup(AComponent).ItemIndex];
+
+      Exit;
+    end;
+
+    if(AComponent is TDateTimePicker)then
+      Exit(FloatToStr(TDateTimePicker(AComponent).Date));
+  finally
+    Result := Result.Trim;
   end;
 end;
 

Src/C4D.Validate.Components.NotEmpty.pas

@@ -11,14 +11,27 @@ interface
 type
   NotEmpty = class(TCustomAttribute)
   private
+    FMsg: string;
   public
+    constructor Create; overload;
+    constructor Create(const AMsg: string); overload;
     procedure Validar(const ARttiField: TRttiField; const AObject: TObject);
   end;
 
 implementation
 
 const
-  MSG_OBG = 'Campo obrigatório sem preenchimento';
+  MSG_PADRAO = 'Campo obrigatório sem preenchimento';
+
+constructor NotEmpty.Create;
+begin
+  FMsg := MSG_PADRAO;
+end;
+
+constructor NotEmpty.Create(const AMsg: string);
+begin
+  FMsg := AMsg;
+end;
 
 procedure NotEmpty.Validar(const ARttiField: TRttiField; const AObject: TObject);
 var
@@ -31,7 +44,7 @@ procedure NotEmpty.Validar(const ARttiField: TRttiField; const AObject: TObject)
   if(LText.Trim.IsEmpty)then
   begin
     TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(MSG_OBG);
+    raise Exception.Create(FMsg);
   end;
 end;