feature/add-FieldDisplay-e-helpers

Author: César Cardoso

Samples/Demo01/C4DValidateComponentsDemo01.dpr

@@ -7,7 +7,9 @@ uses
   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 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';
 
 {$R *.res}
 

Samples/Demo01/C4DValidateComponentsDemo01.dproj

@@ -107,6 +107,8 @@
         <DCCReference Include="..\..\Src\C4D.Validate.Components.Length.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.MinMaxValue.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.pas"/>
+        <DCCReference Include="..\..\Src\C4D.Validate.Components.FieldDisplay.pas"/>
+        <DCCReference Include="..\..\Src\C4D.Validate.Components.Helpers.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -11,6 +11,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  Position = poScreenCenter
   PixelsPerInch = 96
   TextHeight = 13
   object pnTudo: TPanel

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

@@ -14,11 +14,12 @@ interface
   Vcl.Dialogs,
   Vcl.StdCtrls,
   Vcl.ExtCtrls,
+  Vcl.ComCtrls,
   System.RTTI,
   C4D.Validate.Components.NotEmpty,
   C4D.Validate.Components.Length,
   C4D.Validate.Components.MinMaxValue,
-  Vcl.ComCtrls;
+  C4D.Validate.Components.FieldDisplay;
 
 type
   TC4DValidateComponentsDemo01ViewMain = class(TForm)
@@ -29,14 +30,15 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     Label3: TLabel;
     Label4: TLabel;
 
-    [NotEmpty]
+    [FieldDisplay('Código')]
+    [NotEmpty('Campo <FieldDisplay> não pode ficar vazio')]
     edtCodigo: TEdit;
 
+    [FieldDisplay('Nome')]
     [NotEmpty]
     [Length(5, 10)] //'Texto deve ter entre <min> e <max> caracteres'
     edtNome: TEdit;
 
-
     [NotEmpty]
     [MinMaxValue(5, 10)]
     edtLimite: TEdit;

Src/C4D.Validate.Components.FieldDisplay.pas

@@ -0,0 +1,24 @@
+unit C4D.Validate.Components.FieldDisplay;
+
+interface
+
+uses
+  System.SysUtils;
+
+type
+  FieldDisplay = class(TCustomAttribute)
+  private
+    FDisplay: String;
+  public
+    constructor Create(const ADisplay: String);
+    property Display: String read FDisplay;
+  end;
+
+implementation
+
+constructor FieldDisplay.Create(const ADisplay: String);
+begin
+  FDisplay := ADisplay;
+end;
+
+end.

Src/C4D.Validate.Components.Helpers.pas

@@ -0,0 +1,60 @@
+unit C4D.Validate.Components.Helpers;
+
+interface
+
+uses
+  System.SysUtils,
+  System.RTTI,
+  System.TypInfo;
+
+type
+  TRttiFieldyHelper = class helper for TRttiField
+  private
+    function GetCustomAttribute<T: TCustomAttribute>: T;
+  public
+    function GetFieldDisplay: string;
+    function FormatMsg(const AMsg: string): string;
+  end;
+
+implementation
+
+uses
+  C4D.Validate.Components.FieldDisplay;
+
+function TRttiFieldyHelper.GetCustomAttribute<T>: T;
+var
+  LCustomAttribute: TCustomAttribute;
+begin
+  Result := nil;
+  for LCustomAttribute in GetAttributes do
+    if LCustomAttribute is T then
+      Exit((LCustomAttribute as T));
+end;
+
+function TRttiFieldyHelper.GetFieldDisplay: string;
+var
+  LFieldDisplay: FieldDisplay;
+begin
+  Result := ''; //Name;
+  LFieldDisplay := GetCustomAttribute<FieldDisplay>;
+  if(LFieldDisplay <> nil)then
+    Result := LFieldDisplay.Display; //Format(' [%s]', [LFieldDisplay.Display]) ;
+end;
+
+function TRttiFieldyHelper.FormatMsg(const AMsg: string): string;
+const
+  TAG = '<FieldDisplay>';
+var
+  LFieldDisplay: string;
+begin
+  Result := AMsg;
+  LFieldDisplay := Self.GetFieldDisplay;
+
+  if(pos(TAG, AMsg) > 0)then
+    Result := AMsg.Replace(TAG, LFieldDisplay, [rfReplaceAll, rfIgnoreCase])
+  else if(not LFieldDisplay.Trim.IsEmpty)then
+    Result := AMsg + Format(' [%s]', [Self.GetFieldDisplay]) ;
+end;
+
+
+end.

Src/C4D.Validate.Components.Length.pas

@@ -5,8 +5,7 @@ interface
 uses
   System.SysUtils,
   System.Classes,
-  System.RTTI,
-  C4D.Validate.Components.Components;
+  System.RTTI;
 
 type
   Length = class(TCustomAttribute)
@@ -22,6 +21,10 @@   Length = class(TCustomAttribute)
 
 implementation
 
+uses
+  C4D.Validate.Components.Helpers,
+  C4D.Validate.Components.Components;
+
 const
   MSG_PADRAO = 'Campo deve ter entre <min> e <max> caracteres';
   MSG_PADRAO_MIN = 'Campo deve ter ao menos <min> caracteres';
@@ -61,7 +64,7 @@ procedure Length.Validar(const ARttiField: TRttiField; const AObject: TObject);
   if(LLength < FMinLength)or((FMaxLength > 0)and(LLength > FMaxLength))then
   begin
     TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(Self.GetMsg);
+    raise Exception.Create(ARttiField.FormatMsg(Self.GetMsg));
   end;
 end;
 

Src/C4D.Validate.Components.MinMaxValue.pas

@@ -5,8 +5,7 @@ interface
 uses
   System.SysUtils,
   System.Classes,
-  System.RTTI,
-  C4D.Validate.Components.Components;
+  System.RTTI;
 
 type
   MinMaxValue = class(TCustomAttribute)
@@ -22,6 +21,10 @@   MinMaxValue = class(TCustomAttribute)
 
 implementation
 
+uses
+  C4D.Validate.Components.Helpers,
+  C4D.Validate.Components.Components;
+
 const
   MSG_PADRAO = 'Campo deve ter um valor entre <min> e <max>';
   MSG_PADRAO_MIN = 'Campo deve ter um valor mínimo de <min>';
@@ -61,7 +64,7 @@ procedure MinMaxValue.Validar(const ARttiField: TRttiField; const AObject: TObje
   if(LValue < FMinValue)or((FMaxValue > 0)and(LValue > FMaxValue))then
   begin
     TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(Self.GetMsg);
+    raise Exception.Create(Self.GetMsg + ARttiField.GetFieldDisplay);
   end;
 end;
 

Src/C4D.Validate.Components.NotEmpty.pas

@@ -5,8 +5,7 @@ interface
 uses
   System.SysUtils,
   System.Classes,
-  System.RTTI,
-  C4D.Validate.Components.Components;
+  System.RTTI;
 
 type
   NotEmpty = class(TCustomAttribute)
@@ -20,6 +19,10 @@   NotEmpty = class(TCustomAttribute)
 
 implementation
 
+uses
+  C4D.Validate.Components.Helpers,
+  C4D.Validate.Components.Components;
+
 const
   MSG_PADRAO = 'Campo obrigatório sem preenchimento';
 
@@ -44,7 +47,8 @@ procedure NotEmpty.Validar(const ARttiField: TRttiField; const AObject: TObject)
   if(LText.Trim.IsEmpty)then
   begin
     TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(FMsg);
+    //raise Exception.Create(FMsg + ARttiField.GetFieldDisplay);
+    raise Exception.Create(ARttiField.FormatMsg(FMsg));
   end;
 end;