Всем привет,скажите пожалуйста,я правильно передаю id в JSON? procedure TfrmWorkComissionMembers.saveCommissionMembers; var

Question

Всем привет,скажите пожалуйста,я правильно передаю id в JSON? procedure TfrmWorkComissionMembers.saveCommissionMembers; var

code: Integer;
JSON: TJSONObject;
I: Integer;
JSONArray: TJSONArray;
// idValue:string;
begin
JSON := local.JSONObject;
JSON := TConverter.New.DataSet.Source(cdsCommisionMembers).AsJSONObject;
JSON.AddPair('id', cdsCommisionMembers.FieldByName('id').Value);
ShowMessage(cdsCommisionMembers.FieldByName('id').Value);

JSONArray := local.JSONArray;
for I := 0 to cbbDivisions.Properties.Items.Count - 1 do
begin
if cbbDivisions.States[I] = cbsChecked then
JSONArray.Add(divisions[I].idMSP);
end;

JSON.AddPair('divisions', JSONArray);

JSON.RemovePair('id');

sendMSP(JSON, 'urlcommissionmembers', code, 'POST');
end;

Выдает такую ошибку

#lazarus #programming #russian

0

19.05.2023

2 ответов

15 просмотров

Наталья Автор вопроса

Может я не туда код вставила?

0

19.05.2023

meh · Accepted Answer

не понимаю что тут происходит. сначала присваиваем объекту json := local.JSONObject; затем сразу переприсваиваем на некий DataSet?? потом добавляем pair id и чуть дальше его удаляем перед отправкой. и вроде как этот id мы просто добавили и удалили, ничего не делая. если код полный

169 похожих чатов

Всем привет,скажите пожалуйста,я правильно передаю id в JSON? procedure TfrmWorkComissionMembers.saveCommissionMembers; var

2 ответов

Похожие вопросы