Как освободить память

[remus-xe2]

Доброго дня, есть код

Procedure SaveListTg;
var
  i: Integer;

  obj: TJSONObject;
  arr: TJSONArray;

  js: TStringList;
begin
  try
    arr:=TJSONArray.Create as TJSONArray;
    for I := 0 to tgBotForm.ListView1.Items.Count-1 do
        begin
          obj:=TJSONObject.Create as TJSONObject;
          obj.AddPair('user_id',  tgBotForm.ListView1.Items.Item[i].Caption);
          obj.AddPair('user_name', EncodeString( tgBotForm.ListView1.Items.Item[i].SubItems.Strings[0]));
          obj.AddPair('hash', EncodeString( tgBotForm.ListView1.Items.Item[i].SubItems.Strings[1]));
          obj.AddPair( 'auth', TJSONBool.Create( tgBotForm.ListView1.Items.Item[i].Checked));
          arr.AddElement(obj);
        end;
     try
       js:=TStringList.Create;
       js.Text:=arr.ToString;
       js.SaveToFile(ExtractFilePath(Application.ExeName)+'teleg_acc.json');
     finally
        js.Free;
     end;
  finally
   obj.Free;
  end;
end;

в котором течет память, проверяю через ReportMemoryLeaksOnShutdown := true.

Не пойму, как освободить переменные arr и obj? По моей логике должно это быть так

Procedure SaveListTg;
var
  i: Integer;

  obj: TJSONObject;
  arr: TJSONArray;

  js: TStringList;
begin

    arr:=TJSONArray.Create as TJSONArray;
    for I := 0 to tgBotForm.ListView1.Items.Count-1 do
        begin
          try
          obj:=TJSONObject.Create as TJSONObject;
          obj.AddPair('user_id',  tgBotForm.ListView1.Items.Item[i].Caption);
          obj.AddPair('user_name', EncodeString( tgBotForm.ListView1.Items.Item[i].SubItems.Strings[0]));
          obj.AddPair('hash', EncodeString( tgBotForm.ListView1.Items.Item[i].SubItems.Strings[1]));
          obj.AddPair( 'auth', TJSONBool.Create( tgBotForm.ListView1.Items.Item[i].Checked));
          arr.AddElement(obj);
  finally
         obj.Free;
         end;          
        end;
     try
       js:=TStringList.Create;
       js.Text:=arr.ToString;
       js.SaveToFile(ExtractFilePath(Application.ExeName)+'teleg_acc.json');
     finally
        arr.free;
        js.Free;
     end;

end;

но разумеется программа крашится в таком исполнении...

[Arigato]

Каждый созданный obj заносится в arr методом AddElement(obj). Следовательно освобождать все ранее созданные obj надо перед освобождением самого arr. Для этого нужно пройтись циклом по всем элементам в arr, то есть получить обратно ссылки на все созданные obj.

[evg_m]

https://www.programmersforum.ru/show...13&postcount=2

obj.Free;
можно только после окончания использования arr.
и надо освобождать все(каждый) созданный объект.
а уж как вспомнить все "ранее" созданные объекты...

[remus-xe2]

Сообщение от Arigato

Для этого нужно пройтись циклом по всем элементам в arr, то есть получить обратно ссылки на все созданные obj.

Можно образец в коде ?)
Я что то не так понял походу...

       for I := 0 to arr.Count-1 do
          arr.Items[I].Free;

[remus-xe2]

Сообщение от evg_m

obj.Free;
можно только после окончания использования arr.

ага. Тогда первый вариант у меня все же верен?

[evg_m]

нет.
obj.Free;
удаляется память ОДНОГО (cозданного последним)obj.

и надо освобождать все(каждый) созданный объект.
а уж как вспомнить все "ранее" созданные объекты...

[remus-xe2]

Сообщение от evg_m

нет.
obj.Free;
удаляется память ОДНОГО (cозданного последним)obj.

Да, с obj.Free; понял, убрал.
Вариант с

       for I := 0 to arr.Count-1 do
          arr.Items[I].Free;

возможно глупо выглядит но утечек стало меньше..

как их вычистить ?...

[Arigato]

Сам arr после тоже надо освободить.

[remus-xe2]

Сообщение от Arigato

Сам arr после тоже надо освободить.

я пытался.. но крашится программа...

[Arigato]

Тогда попробуйте создать массив obj[0..9]. Сначала освобождайте arr, а затем все элементы из массива obj.