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

[remus-xe2]

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

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

Это я для теста указал 9 записей в цикле. Сам принцип понять хочу... В программе естественно неизвестно кол-во записей. Что то типа базы....

[remus-xe2]

var
  i: Integer;

  obj: TJSONObject;
  arr: TJSONArray;

  js: TStringList;
begin
    arr:=TJSONArray.Create ;

    for I := 0 to 9 do
        begin
          obj:=TJSONObject.Create as TJSONObject;
          obj.AddPair('user_id',  'test');
          obj.AddPair('user_name',   'test');
          obj.AddPair('hash', 'test');
          obj.AddPair( 'auth', TJSONBool.Create( true));
          arr.AddElement(obj);
        end;

    js:=TStringList.Create;
    js.Text:=arr.ToString;
    js.SaveToFile(ExtractFilePath(Application.ExeName)+'telegram_acc.json');

    arr.Free;
    js.Free;
end;

в таком исполнении утечек нет... Получается нужно было освободить arr раньше чем JS и все...

[remus-xe2]

Только щас заметил что репутацию убрали с участников...
уже жалобу на вас отправил с благодарностью ) сори.