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

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 StringGridHelper;

interface

uses
 Vcl.Grids;


type
  TStringGridHelper = class helper for TStringGrid

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 StringHelper;

interface

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

implementation