Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Delphi 10.3.1 работа с JSON  [new]
Игорь_UUS
Member

Откуда: г. Екатеринбург
Сообщений: 615
Использую стандартную библиотеку.

Вопрос про уничтожение созданных объектов JSON.

Вот пример кода:

var JSONArr: TJSONArray;
      JSONObj: TJSONObject;
      Count  : Integer;
begin
  Result := '';
  if Specimen.DataController.RecordCount = 0 then Exit;

  JSONArr := TJSONArray.Create;
  try
    with Specimen.DataController do
      for Count := 0 to RecordCount - 1 do
      begin
        // Создаём нужный объект.
        JSONObj := TJSONObject.Create;
        JSONObj.AddPair(TJSONPair.Create(fnMEDX_SpecimenCode,         SpCode(Count)));
        JSONObj.AddPair(TJSONPair.Create(fnMEDX_Label,                SpLabel(Count)));
        ..
        ..
        // Сохраняем объект в массив.
        JSONArr.AddElement(JSONObj);
      end;

    Result := JSONArr.ToString;
  finally
    JSONArr.Free;
  end;


JSONArr.Free - тут понятно, освобождаю... вопрос нужно ли после каждого "JSONArr.AddElement(JSONObj)" делать JSONObj.Free? или данное исполнение и json объект уничтожать не надо, память высвобождается сразу по завершению процедуры...
12 июл 19, 09:56    [21925468]     Ответить | Цитировать Сообщить модератору
 Re: Delphi 10.3.1 работа с JSON  [new]
DimaBr
Member

Откуда:
Сообщений: 11128
JSONArr уничтожит все внутренние объекты
12 июл 19, 10:05    [21925478]     Ответить | Цитировать Сообщить модератору
 Re: Delphi 10.3.1 работа с JSON  [new]
Игорь_UUS
Member

Откуда: г. Екатеринбург
Сообщений: 615
DimaBr
JSONArr уничтожит все внутренние объекты


так и думал... спасибо!
12 июл 19, 11:12    [21925544]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить