Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2020, 22:52   #11
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию

Цитата:
Сообщение от Arigato Посмотреть сообщение
Тогда попробуйте создать массив obj[0..9]. Сначала освобождайте arr, а затем все элементы из массива obj.
Это я для теста указал 9 записей в цикле. Сам принцип понять хочу... В программе естественно неизвестно кол-во записей. Что то типа базы....
remus-xe2 вне форума Ответить с цитированием
Старый 14.10.2020, 23:33   #12
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию

Код:
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; 14.10.2020 в 23:40.
remus-xe2 вне форума Ответить с цитированием
Старый 15.10.2020, 00:26   #13
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
От куда оператор delete берет размер массива, чтобы освободить всю память, которая была выделена под массив? Arigato Общие вопросы C/C++ 42 10.06.2019 18:14
Как освободить память от типа Audio? reyn90 Общие вопросы .NET 6 26.12.2015 23:21
Освободить память после потока SPLER Общие вопросы Delphi 7 06.06.2014 02:08
Освободить память формы st_yak C++ Builder 0 21.12.2013 19:56
Освободить память от CEdit Eros Общие вопросы C/C++ 0 29.11.2010 15:37