reinaldoacdc

unit StringHelper;

interface

type
  TStringHelper = record helper for string
    function OnlyNumbers :String;
  end;

implementation

reinaldoacdc

unit ApplicationHelper;

interface
uses Vcl.Forms;

type
  TApplicationHelper = class helper for TApplication
    procedure OpenForm( frm :TForm; obj :TFormClass);
    procedure CloseAllForms;
    procedure Log(text: String);

reinaldoacdc

unit StringGridHelper;

interface

uses
 Vcl.Grids;


type
  TStringGridHelper = class helper for TStringGrid

reinaldoacdc

Delphi ClassHelpers

• ApplicationHelper: https://gist.github.com/reinaldoacdc/3fcc92a6610bfb07d3ddc68b14e54164

• BitmapHelper https://gist.github.com/reinaldoacdc/5d8bffa7eb0d03c105cbac44e99c02e7

• ClientDatasetHelper https://gist.github.com/reinaldoacdc/aca5ebc481e6267ab856c2b7cf708a7b

reinaldoacdc

unit JsonObjectHelper;

interface

uses DBXJSON, Character;

type  TJsonObjectHelper = class helper for TJsonObject
  public
    //Helper to find a JSON pair based on the pair string part
    function Get(const PairName: UnicodeString): TJSONPair; overload;

reinaldoacdc

  
unit FormHelper;

interface

uses Forms;

type
  TFormHelper = class helper for TForm

reinaldoacdc

unit BitmapHelper;

interface

uses FMX.Graphics;

type
   TBitmapHelper = class helper for TBitmap
     function ToBase64 :String;
   end;

reinaldoacdc

function MonthName(n: Integer): String;
const
  aMeses :array[0..11] of String = ( 'Janeiro', 'Fevereiro', 'Mar�o', 'Abril', 'Maio', 'Junho',
                                     'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro' );
begin
 Result := aMeses[n-1];
end;

reinaldoacdc

unit VariantsHelper;

interface

type
  TVariantsHelper = record helper for variants
    function ValueInRange(const ARange: array of Variant): Boolean;
  end;

implementation

reinaldoacdc

unit IntegerHelper;

interface

type
  TIntegerHelper = record helper for integer
    function toRomans: String;
  end;