Delphi Can

Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden 

(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden 

Kod:

procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Hangi veri tabanı kullandığınızı bilmiyorum ama, MySQL 8 ile birlikte JSON desteği mevcut.
https://dev.mysql.com/doc/refman/8.0/en/json.html

Kolay gelsin.

(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden 

Kod:

procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

daha detaylısı vardır belki ama ilk aklıma gelen replace :

 

Memo.lines.text  := StringReplace(Memo.lines.text,':true',[RfReplaceALL]);

Memo.Lines.Text := StringReplace(Memo.Lines.Text,':false',[RfReplaceALL]);

gibisinden çoğaltabilirsin

[attachment=2460]

Bilmem anlatabildim mi? 

(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden 

Kod:

procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Gibi bir yapı ile...

{
  "malzemeler": [
   
      {
        "malzeme_adi": "KUMAŞ",
        "durum": 0
      },
      {
        "malzeme_adi": "İPLİK",
        "durum": 0
      }
  
  ]
}

Kolay gelsin.

Şöyle de olabilir.

{
   "secili": ["KUMAŞ", "İPLİK"]
}

Yada

["KUMAŞ", "İPLİK"]

(02-11-2023, Saat: 17:26)hi_selamlar Adlı Kullanıcıdan Alıntı: [ -> ]

(02-11-2023, Saat: 10:12)kajmerantime Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba, iyi forumlar. Delphi Vcl'de bir cxChecklistbox içine eklediğim itemlerden seçili olanları jsonobject içerisinde bool olarak tutup veritabanına kaydediyorum. Ben veritabanıma sadece key değerim gelsin istiyorum. Yani sadece Items.Name'i kaydetmek istiyorum.

Örnek kayıt : {"KUMAŞ":true,"İPLİK":true}

Benim istediğim kayıt : {"KUMAŞ","İPLİK"}

Böyle bir şey mümkün mü? Yardımcı olursanız çok sevinirim. Teşekkür ederim şimdiden 

Kod:

procedure Ttest.btnKaydetClick(Sender: TObject);
var
 JsonObject: TJSONObject;
 JsonObject2: TJSONObject;
 JsonArray: TJsonArray;
 JsonItem: TJSONBool;
 i: Integer;
 JsonStr: string;
begin
 JsonObject := TJSONObject.Create;

                  //obje>array>obje
 try
 for i := 0 to clbTurler.Items.Count - 1 do
 begin
   if clbTurler.Items[i].Checked then
   begin
     JsonObject.AddPair((clbTurler.Items[i].Text), TJSONTrue.Create);
     JsonArray.Add(JsonObject);
   end;
 end;

   JsonStr := JsonObject.ToString;
   Memo.Lines.Text := JsonStr;


   qryGenel.SQL.Text := 'Insert Into testCheckLists (Deger) values (:Deger)';
   qryGenel.Parameters.ParamByName('Deger').Value := JsonStr; // JsonStr UnicodeString olarak saklanıyor
   qryGenel.ExecSQL;

 finally
   JsonObject.Free;
 end;
end;

Merhabalar,

Gibi bir yapı ile...

{
  "malzemeler": [
   
      {
        "malzeme_adi": "KUMAŞ",
        "durum": 0
      },
      {
        "malzeme_adi": "İPLİK",
        "durum": 0
      }
  
  ]
}

Kolay gelsin.

İlgilenen arkadaşlar için şu şekilde yaptım.

Örnek veritabanı kayıtı şu şekilde: ["KUMAŞ","İPLİK"]

Tekrardan teşekkürlerrr.