refactor/overloads-em-creates

Author: César Cardoso

Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.dfm

@@ -2,7 +2,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
   Left = 0
   Top = 0
   Caption = 'C4D-validate-components - Demo01'
-  ClientHeight = 610
+  ClientHeight = 570
   ClientWidth = 643
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -19,15 +19,15 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
     Left = 0
     Top = 0
     Width = 643
-    Height = 610
+    Height = 570
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 0
     ExplicitWidth = 662
     ExplicitHeight = 588
     object pnButtons: TPanel
       Left = 0
-      Top = 565
+      Top = 525
       Width = 643
       Height = 45
       Align = alBottom
@@ -64,11 +64,12 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
       Left = 0
       Top = 0
       Width = 643
-      Height = 565
+      Height = 525
       ActivePage = tabDemo
       Align = alClient
       TabOrder = 1
       ExplicitTop = -2
+      ExplicitHeight = 565
       object tabDemo: TTabSheet
         Caption = 'Demo'
         ExplicitLeft = 0
@@ -79,9 +80,10 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           Left = 0
           Top = 0
           Width = 635
-          Height = 537
+          Height = 497
           Align = alClient
           TabOrder = 0
+          ExplicitHeight = 537
           object Label1: TLabel
             Left = 16
             Top = 8
@@ -271,7 +273,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           end
           object GroupBox2: TGroupBox
             Left = 1
-            Top = 352
+            Top = 312
             Width = 633
             Height = 184
             Align = alBottom
@@ -283,6 +285,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
             Font.Style = [fsBold]
             ParentFont = False
             TabOrder = 7
+            ExplicitTop = 352
             object Label7: TLabel
               Left = 15
               Top = 19
@@ -485,12 +488,13 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           Left = 0
           Top = 0
           Width = 635
-          Height = 537
+          Height = 497
           Align = alClient
           BevelOuter = bvNone
           ParentBackground = False
           TabOrder = 0
           ExplicitTop = -2
+          ExplicitHeight = 537
           object Label13: TLabel
             Left = 16
             Top = 16

Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.pas

@@ -38,10 +38,9 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
 
     [FieldDisplay('Nome')]
     [NotEmpty]
-    [Length(5, 20)]
+    [Length(5, 15)]
     edtName: TEdit;
 
-    [NotEmpty]
     [MinMaxValue(5, 10)]
     edtLimit: TEdit;
 

Src/C4D.Validate.Components.Length.pas

@@ -15,7 +15,10 @@   Length = class(TCustomAttribute)
     FMsg: string;
     function GetMsg: string;
   public
-    constructor Create(const AMinLength, AMaxLength: Integer; const AMsg: string = '');
+    constructor Create(const AMinLength: Integer); overload;
+    constructor Create(const AMinLength, AMaxLength: Integer); overload;
+    constructor Create(const AMinLength: Integer; const AMsg: string); overload;
+    constructor Create(const AMinLength, AMaxLength: Integer; const AMsg: string); overload;
     procedure Validar(const ARttiField: TRttiField; const AObject: TObject);
   end;
 
@@ -27,7 +30,22 @@ implementation
   C4D.Validate.Components.Consts,
   C4D.Validate.Components.Language;
 
-constructor Length.Create(const AMinLength, AMaxLength: Integer; const AMsg: string = '');
+constructor Length.Create(const AMinLength: Integer);
+begin
+  Self.Create(AMinLength, 0, '');
+end;
+
+constructor Length.Create(const AMinLength, AMaxLength: Integer);
+begin
+  Self.Create(AMinLength, AMaxLength, '');
+end;
+
+constructor Length.Create(const AMinLength: Integer; const AMsg: string);
+begin
+  Self.Create(AMinLength, 0, AMsg);
+end;
+
+constructor Length.Create(const AMinLength, AMaxLength: Integer; const AMsg: string);
 begin
   FMinLength := AMinLength;
   FMaxLength := AMaxLength;

Src/C4D.Validate.Components.MinMaxDate.pas

@@ -15,7 +15,9 @@   MinMaxDate = class(TCustomAttribute)
     FMsg: string;
     function GetMsg: string;
   public
-    constructor Create(const AMinDate, AMaxDate: string; const AMsg: string = '');
+    constructor Create(const AMinDate: string); overload;
+    constructor Create(const AMinDate, AMaxDate: string); overload;
+    constructor Create(const AMinDate, AMaxDate, AMsg: string); overload;
     procedure Validar(const ARttiField: TRttiField; const AObject: TObject);
   end;
 
@@ -27,7 +29,17 @@ implementation
   C4D.Validate.Components.Consts,
   C4D.Validate.Components.Language;
 
-constructor MinMaxDate.Create(const AMinDate, AMaxDate: string; const AMsg: string = '');
+constructor MinMaxDate.Create(const AMinDate: string);
+begin
+  Self.Create(AMinDate, '', '');
+end;
+
+constructor MinMaxDate.Create(const AMinDate, AMaxDate: string);
+begin
+  Self.Create('', AMaxDate, '');
+end;
+
+constructor MinMaxDate.Create(const AMinDate, AMaxDate, AMsg: string);
 begin
   FMinDate := StrToDateDef(AMinDate, 0);
   FMaxDate := StrToDateDef(AMaxDate, 0);

Src/C4D.Validate.Components.MinMaxValue.pas

@@ -15,7 +15,10 @@   MinMaxValue = class(TCustomAttribute)
     FMsg: string;
     function GetMsg: string;
   public
-    constructor Create(const AMinValue, AMaxValue: Integer; const AMsg: string = '');
+    constructor Create(const AMinValue: Integer); overload;
+    constructor Create(const AMinValue, AMaxValue: Integer); overload;
+    constructor Create(const AMinValue: Integer; const AMsg: string); overload;
+    constructor Create(const AMinValue, AMaxValue: Integer; const AMsg: string); overload;
     procedure Validar(const ARttiField: TRttiField; const AObject: TObject);
   end;
 
@@ -27,7 +30,22 @@ implementation
   C4D.Validate.Components.Consts,
   C4D.Validate.Components.Language;
 
-constructor MinMaxValue.Create(const AMinValue, AMaxValue: Integer; const AMsg: string = '');
+constructor MinMaxValue.Create(const AMinValue: Integer);
+begin
+  Self.Create(AMinValue, 0, '');
+end;
+
+constructor MinMaxValue.Create(const AMinValue, AMaxValue: Integer);
+begin
+  Self.Create(AMinValue, AMaxValue, '');
+end;
+
+constructor MinMaxValue.Create(const AMinValue: Integer; const AMsg: string);
+begin
+  Self.Create(AMinValue, 0, AMsg);
+end;
+
+constructor MinMaxValue.Create(const AMinValue, AMaxValue: Integer; const AMsg: string);
 begin
   FMinValue := AMinValue;
   FMaxValue := AMaxValue;