bk/2023-11-23-0946

Author: César Cardoso

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

@@ -16,10 +16,7 @@ interface
   Vcl.ExtCtrls,
   Vcl.ComCtrls,
   System.RTTI,
-  C4D.Validate.Components.NotEmpty,
-  C4D.Validate.Components.Length,
-  C4D.Validate.Components.MinMaxValue,
-  C4D.Validate.Components.FieldDisplay;
+  C4D.Validate.Components;
 
 type
   TC4DValidateComponentsDemo01ViewMain = class(TForm)
@@ -54,6 +51,7 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
 
     [NotEmpty]
     Memo1: TMemo;
+
     ckCheck: TCheckBox;
     pnBotoes: TPanel;
     btnValidar: TButton;
@@ -105,35 +103,9 @@ procedure TC4DValidateComponentsDemo01ViewMain.btnClearAllFieldsClick(Sender: TO
 end;
 
 procedure TC4DValidateComponentsDemo01ViewMain.btnValidarClick(Sender: TObject);
-var
-  LRttiContext: TRttiContext;
-  LRttiType: TRttiType;
-  LRttiField: TRttiField;
-  LCustomAttribute: TCustomAttribute;
 begin
-  LRttiContext := TRttiContext.Create;
-  try
-    LRttiType := LRttiContext.GetType(TC4DValidateComponentsDemo01ViewMain);
-
-    for LRttiField in LRttiType.GetFields do
-    begin
-      for LCustomAttribute in LRttiField.GetAttributes do
-      begin
-        if(LCustomAttribute is NotEmpty)then
-          NotEmpty(LCustomAttribute).Validar(LRttiField, Self);
-
-        if(LCustomAttribute is Length)then
-          Length(LCustomAttribute).Validar(LRttiField, Self);
-
-        if(LCustomAttribute is MinMaxValue)then
-          MinMaxValue(LCustomAttribute).Validar(LRttiField, Self);
-      end;
-    end;
-  finally
-    LRttiContext.Free;
-  end;
-
-  ShowMeSsage('SUCESSO')
+  TC4DValidateComponents.Validate(TC4DValidateComponentsDemo01ViewMain, Self);
+  ShowMeSsage('SUCESSO');
 end;
 
 end.

Src/C4D.Validate.Components.pas

@@ -2,12 +2,61 @@
 
 interface
 
+uses
+  System.SysUtils,
+  System.Classes,
+  System.RTTI,
+  Vcl.Forms,
+  C4D.Validate.Components.NotEmpty,
+  C4D.Validate.Components.Length,
+  C4D.Validate.Components.MinMaxValue,
+  C4D.Validate.Components.FieldDisplay;
+
 type
+  NotEmpty = C4D.Validate.Components.NotEmpty.NotEmpty;
+  Length = C4D.Validate.Components.Length.Length;
+  MinMaxValue = C4D.Validate.Components.MinMaxValue.MinMaxValue;
+  FieldDisplay = C4D.Validate.Components.FieldDisplay.FieldDisplay;
+
   TC4DValidateComponents = class
   private
   public
+    class procedure Validate(AInstanceClass: TComponentClass; const AForm: TForm);
   end;
 
 implementation
 
+class procedure TC4DValidateComponents.Validate(AInstanceClass: TComponentClass; const AForm: TForm);
+var
+  LRttiContext: TRttiContext;
+  LRttiType: TRttiType;
+  LRttiField: TRttiField;
+  LCustomAttribute: TCustomAttribute;
+begin
+  LRttiContext := TRttiContext.Create;
+  try
+    LRttiType := LRttiContext.GetType(AInstanceClass);
+
+    for LRttiField in LRttiType.GetFields do
+    begin
+      if(LRttiField.Parent <> LRttiType)then
+        Continue;
+
+      for LCustomAttribute in LRttiField.GetAttributes do
+      begin
+        if(LCustomAttribute is NotEmpty)then
+          NotEmpty(LCustomAttribute).Validar(LRttiField, AForm);
+
+        if(LCustomAttribute is Length)then
+          Length(LCustomAttribute).Validar(LRttiField, AForm);
+
+        if(LCustomAttribute is MinMaxValue)then
+          MinMaxValue(LCustomAttribute).Validar(LRttiField, AForm);
+      end;
+    end;
+  finally
+    LRttiContext.Free;
+  end;
+end;
+
 end.