The class-helpers from bogdanpolak

Fix mapping attribute name and unit

Change: Maped -> Mapped

unit: Attribute.MapedToField.pas => Attribute.MappedToField.pas
Class: MapedToFieldAttribute => MappedToFieldAttribute
Custom attribute: [MapedToField(..)] => [MappedToField(..)] in:
- unit tests
- sample playground

JSON datetime conversion into TDateTime

  TDateTimeHelper = record helper for TDateTime
  public
    function AsStringDateISO: string;
    function SetDateISO (const aDateISO: string);

Update TJSONObject helper:

function GetFieldIsoDate(const fieldName: string): TDateTime;

Implement more reliable function then: System.DateUtils implementation DateToISO8601 and ISO8601ToDate. Check is iso date has non zero time value

Ask Arnaud for reuse functions:

function DateTimeToIso8601(Value: TDateTime): string;
function Iso8601ToDateTime(const Value: string): TDateTime;

https://github.com/synopse/mORMot/blob/f2f0b0fe5987ab6c15a52bf5538e818e2ef48250/CrossPlatform/SynCrossPlatformJSON.pas#L758-L830

Add utility to bump version in all helpers

XmlDoc for TJSONObjectHelper

Add unit tests for Helper.TDBGrid.pas

XML documentation for loading DBGrid columns from JSON

Add XMLDoc for class helper TDBGridHelper method LoadColumnsFromJson

type
  TDBGridHelper = class helper for TDBGrid
    // ...
    procedure LoadColumnsFromJson(aStoredColumns: TJSONArray);
    procedure LoadColumnsFromJsonString(const aJsonString: string);
  end;

New helper for TBytes

type
  TBytesHelper = record helper for TBytes
    // ---------------------
    // Base / utility methods:
    function GetSize: Integer;
    procedure SetSize(aSize: Integer);
    property Size: Integer read GetSize write SetSize;
    // ---------------------
    // Load / Save
    procedure LoadFromStream(const aStream: TStream);
    procedure LoadFromFile(const aFileName: string);
    procedure SaveToStream(const aStream: TStream);
    procedure LoadFromBase64String(const aBase64Str: String);
    // ---------------------
    // Getters
    function GetSectorAsHex(aIndex: Integer = 0;
      aLength: Integer = 100): string;
    function GetSectorAsString(aIndex: Integer = 0;
      aLength: Integer = 100): string;
    function GetLongWord(aIndex: Integer = 0): LongWord;
    function GetReverseLongWord(aIndex: Integer = 0): LongWord;
    function GetSectorCRC32(aIndex: Integer; aLength: Integer): LongWord;
    // ---------------------
    // Fake generator
    function GenerateBase64Code(aLineLength: Integer = 60): string;
  end;

XMLDoc for TDataSet helper

Add minimal XML Documentation (summary) fo class helper TDataSetHelper
Expand documentation for method: LoadData

XML doc in TBytesHelper

Add xml doc for all methods in TBytesHelper

Expand helper library

See article:
http://blogs.conceptfirst.com/2006/05/08/class-helpers-good-or-bad.html

TCanvasHelper =  class helper for TCanvas
  procedure FillGradient( Bounds: TRect; StartColour, EndColour: TColor; IsHorizontal: boolean );
end;

TListHelper = class helper for TList
  procedure FreeSelfAndContainedObjects;
end;

TDatasetHelper = class helper for TDataSet
public
  procedure InsertIntoStrings( Strings: TStrings; NameField: string; IndexField: string = '' );
  function HaveFieldsChanged: boolean;
  procedure PostIfEditing;
end;

TFieldHelper = class helper for TField
public
  function HasChanged: boolean;
end;

TTreeNodesHelper = class helper for TTreeNodes
public
  procedure ExpandToLevel( Level: integer );
  function FindOrCreateNode( NodePath: string ): TTreeNode;
end;
  
TRectHelper = record helper for TRect
  function ContainsPoint( Point: TPoint ): boolean;
end;

Updated documentation to ver 1.7

TByteHelper
TStreamHelper
TFieldHelper
Moved demos to : examples/01-playground

Unit tests for TJSONObjectHelper

Fixed invalid date time in TestTJSONObjectHelper.GetFieldIsoDate

In GetFieldIsoDate there is time value even when provided ISO date string has no time.

For example:

js := TJSONObject.Create(TJSONPair.Create('visited','2018-11-25'));
dt := js.GetFieldIsoDate('visited');
// dt - expected 43429 but got 43429,0416666667

New helper for TField

type
  TFieldHelper = class helper for TField
    function SetBlobFromBase64String(const aBase64Str: String): TBlobField;
  end;

function TFieldHelper. SetBlobFromBase64String(const aBase64Str: String)
  : TBlobField;
begin
  if not(Self is TBlobField) then
    raise EDatabaseError.Create('Invalid field type.' +
      ' Method LoadFromBase64String is supported only for blob fields');
  Result := (Self as TBlobField);
  Result.Value := TNetEncoding.Base64.DecodeStringToBytes(aBase64Str);
end;

Sample usage:

with aDataSet do 
begin
  Edit;
  FieldByName('PngIcon'). SetBlobFromBase64String
    ('iVBORw0KGgoAAAANSUhEUgAAAHwAAAAbCAMAAACJMRtuAAAAclBMVEX////w' +
    '8PDZ2dn/248AAADb/v85OY85AwCP2////bYAOZDbjzm2/v9mtv9mCAA5j9vb' +
    '248BDmZmDDlmFGb//tv/tmbb/LYABDkAZra22484EGaQOgA4ZWW2ZgC2ZmaP' +
    'OTiPZQC2/LaPZo86OmZmOTk6Bznxkw7DAAABV0lEQVRIx+1W7W6DMAzMSsKA' +
    'hAIbtKys+977v+IOX5WBWDfWPxEqVpWcE/sOOylC3QS0axbfBDKKqyAm4ptA' +
    '4uErX6Z4FJuLw6fiVmtdzCagE90iKYdXd5kZczSA7Vxxi+z6zfxPHAMeIAd4' +
    '/0jIkW5F3VZOqSc3U/wuwSC17JMofkFBHlfOaqC6Q1myJhVnFOdgi2OhUuGQ' +
    'tfrZ01XuFM7UH8X5ZOm9Q3aJYpps57G0se1pub/b5l5XcqDVgB2euNg4OKFD' +
    'oG1TCSedOSOOyrKyP8TqITaI85hnK+SRXxuJY0bZA3FCHsthSOfOth0RsWHO' +
    'GH8m/cyf3x+03WpYMWg74EQc428Xjg1lzhibfh+97DtIavjcxFLdYRV9n1y4' +
    'V2k7w0H3x1+NDS4p6LE6av0YG0wFD6ChL9H7xBcrHPk3XXu6cAxn6vLfcKv4' +
    'Kr6oLxmYWi2EfQE93BbPGkadYAAAAABJRU5ErkJggg==');
  Post;
end;

Implement `FindChildControlRecursive` in TWinControl helper

Add TStreamHelper.ToHexString

function TStreamHelper.ToHexString: string;
var
  aBytes: TBytes;
  idx: Integer;
begin
  SetLength(aBytes, Self.Size);
  Self.Position := 0;
  fStream.Read(aBytes[0], Self.Size);
  for idx := 0 to High(aBytes) do
    if idx = 0 then
      Result := IntToHex(aBytes[0], 2)
    else
      Result := Result + ' ' + IntToHex(aBytes[i], 2);
end;

JSON fields in LoadColumnsFromJson have to be case insensitive

Fields in JSON object defining column format is now case sensitive and this fields are not supported:

fDBGrid.LoadColumnsFromJsonString(
    '[ {"fieldName":"id", "TITLE":"CityID", "Witdth":90} ]' 
);

Add support for TBlobFied in TDataSetHelper.LoadData

Use LoadColumnsFromJson in TDBGrid playground

Remove ReleaseDate from helpers const

Remove ReleaseDate
Reneme ReleaseVersion ==> Version
Update version_bumper tool

Add playground VCL demo project

Add project using class helpers in action

README - add maintenace and helper repository section

Add TStream helper

TStreamHelper = class helper for TStream
public
  procedure SaveToFile(aFileName: string);
  function SaveToTempFile: string;
  function AsString(aEncoding: TEncoding = FUTF8): string;
  procedure WriteString(const aText: string; aEncoding: TEncoding = FUTF8);
  procedure WriteLine(const aText: string; aEncoding: TEncoding = FUTF8);
end;

Add method TDataSet.LoadData: TObjectList

function TDataSet.LoadData<T:class>: TObjectList<T>;

Method steps:

Creates TObjectList<T>
Iterates through all rows of the dataset and for each row:
1. Creates T class
2. Fills class fields with mapped dataset fields (mapping is defined using Delphi Custom Attributes)

Custom Attributes should be defined in a separate unit
Consider to decompose this method with TFieldHelper
Consider this dependency Helper.TDataSet.pas => Helper.TField.pas

Fix width of DBGrid column with currency value in TDBGridHelper

Method TDBGridHelper.AutoSizeColumns calculates to narrow columns currency fields (TCurrencyField).

Helper method TDBGridHelper.AutoSizeColumns using Text value of this field which is not including full currency format width. See image bellow

Add unit tests

Update demo project with TByteHelper and TStreamHelper

TByteHelper
- Sample code with PNG image from:
- #40
TStreamHelper
- Expand helper to build meaningful demo
TDataSetHelper.AppendRows

function TDBGridHelper.SaveColumnsToJson: TJSONArray;
// or
function TDBGridHelper.SaveColumnsToJson (aJArray: TJSONArray): TJSONArray;

XMLDoc for DBGrid helper - SaveColumnsToString

Add XML documentation for:

type
  TDBGridHelper = class helper for TDBGrid
      ...
      function SaveColumnsToString: string;
  end;

Refactoring 1

IS

procedure TDate2019_10_24_T_21_15_59.Test_AsYear;
begin
  Assert.AreEqual(2019, fDate.AsYear);
end;

SHOULD BE

procedure TDateHelper.AsYear_2019;
var
  actualYear: word;  
begin
  fDate := EncodeDate(2019, 10, 24);
  actualYear := fDate.AsYear;
  Assert.AreEqual(2019, actualYear);
end;

Refactoring 2

REMOVE from test setup

  FormatSettings.DateSeparator := '-';
  FormatSettings.ShortDateFormat := 'yyyy/mm/dd';

ADD where it's required

  original := FormatSettings.DateSeparator;
  FormatSettings.DateSeparator := '-';
  FormatSettings.ShortDateFormat := 'yyyy/mm/dd';
  // ...
  // ...
  FormatSettings.DateSeparator := original;

Add dark side section in README

Update "dark side" section: http://www.tindex.net/Language/classhelper.html

Expand TByteHelper

Add methods:

GenerateBase64Code - Fake TByte Generator
Compress and Decompress bytes - using ZLib
CompareBytesTo (TBytes)
Zeroise
CopySector (aIndex, aLength): TBytes;
LoDashToChunks (aChunkSize): TArray;
LoDashDrop (aToDrop = 1): TBytes
LoDashDropWhile (aByteToLocate): TBytes;

More methods bellow: ...

Add TDataSet.AppendRows

function TDataSet.AppendRows (aRecordArray: TArray<TArray<Variant>>);

Verify and rise more precise exceptions when:

assign string to TIntegerField or any other numeric field
assign string to TBooleanField
assign string to TDateField

Add helper for TFDCustomManager

Look for:

helpers/Helper.TFDCustomManager
In ProxyGenerator tool folder:
- https://github.com/bogdanpolak/delphi-dataproxy/tree/ver1.0/tools/generator-app
Check TFDConnection helper

TPicture helper

TPictureHelper:

AssignBytes (const aBytes: TBytes); details bellow
AssignBlobField - tests format and creates proper TGraphics
- check: Image1.Picture := fDataSet.ImageBlobField - comments bellow