var

  MyForm : TCLForm;

  MyGrid : TCLStringGrid;

  btnEkle : TCLProButton;

  edtAd, edtSoyad : TClProEdit;

  LayoutInput : TclLayout;

  

  GlobalJsonData : String; 

void GridTazele;

var

  MyDataSet : TClJSonQuery;

  TamJson : String;

{

  MyForm.RemoveGridBinding('MyLink');

  

  TamJson = '[' + GlobalJsonData + ']';

  

  MyDataSet = Clomosy.ClDataSetFromJSON(TamJson);

  

  MyForm.AddNewGridBinding(MyGrid, MyDataSet, 'MyLink');

  

  if (MyGrid.ColumnCount > 0)

  {

    MyGrid.Columns[0].Header = 'ADI';

    MyGrid.Columns[0].Width = 100;

    

    MyGrid.Columns[1].Header = 'SOYADI';

    MyGrid.Columns[1].Width = 150;

  }

}

void VeriEkle(Ad, Soyad : String);

var

  YeniKayit : String;

{

  YeniKayit = '{"Col1":"' + Ad + '", "Col2":"' + Soyad + '"}';

  

  if (GlobalJsonData <> '')

    GlobalJsonData = GlobalJsonData + ',' + YeniKayit;

  else

    GlobalJsonData = YeniKayit; 

    

  GridTazele;

}

void ButonaTiklandi;

{

  if (edtAd.Text <> '')

  {

    VeriEkle(edtAd.Text, edtSoyad.Text);

    

    edtAd.Text = '';

    edtSoyad.Text = '';

  }

  else

    ShowMessage('İsim boş olamaz!');

}

{

  MyForm = TCLForm.Create(Self);

  GlobalJsonData = ''; 

  

  LayoutInput = MyForm.AddNewLayout(MyForm, 'LayoutInput');

  LayoutInput.Align = alTop;

  LayoutInput.Height = 110;

  

  edtAd = MyForm.AddNewProEdit(LayoutInput, 'edtAd', 'Ad Giriniz...');

  edtAd.Align = alTop;

  edtAd.Height = 40;

  edtAd.Margins.Top = 5;

  

  edtSoyad = MyForm.AddNewProEdit(LayoutInput, 'edtSoyad', 'Soyad Giriniz...');

  edtSoyad.Align = alTop;

  edtSoyad.Height = 40;

  edtSoyad.Margins.Top = 5;

  

  btnEkle = MyForm.AddNewProButton(LayoutInput, 'btnEkle', 'JSON İLE EKLE');

  btnEkle.Align = alRight;

  btnEkle.Width = 120;

  btnEkle.Margins.Right = 5;

  btnEkle.Margins.Top = 5;

  MyForm.AddNewEvent(btnEkle, tbeOnClick, 'ButonaTiklandi');

  MyGrid = MyForm.AddNewStringGrid(MyForm, 'MyGrid');

  MyGrid.Align = alClient;

  

  

  MyForm.Run;

}