#ifndef OverbyteIcsHttpRestTst2H
#define OverbyteIcsHttpRestTst2H

#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>

#include "OverbyteIcsSuperObject.hpp"

#include <vector>

String SuperTypeName(TSuperType Type);
bool StartsJson(const String &S);
void JsonToListView(TListView *List, _di_ISuperObject Json, std::vector<String> &ArrayItems);

class TFormObject : public TForm
{
__published:
    TListView *SubRespList;
    void __fastcall SubRespListDblClick(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private:
    std::vector<String> FJArrayItems;

public:
    __fastcall TFormObject(TComponent *Owner);
    void DispJson(const String &JsonStr);
};

extern PACKAGE TFormObject *FormObject;

#endif