TJSONMinifier

type TJSONMinifier = class(TComponent)

protected

  function Peek;

  function Get;

  function Next;

  procedure Putc();

  procedure Reset;

  procedure DoHeader; virtual;

  procedure Error();

  class function isAlphaNum();

  class function iif();

  procedure Action();

  procedure Minify;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute();

published

  property FileHeader: TStrings; [rw]

end;

TJSONMinifier

TObject