Исправление ошибки в заполнении `TListView` данными из JSON в Delphi

Delphi , Компоненты и Классы , TListView

Исправление ошибки в заполнении TListView данными из JSON в Delphi

Вопрос, с которым столкнулся разработчик, заключается в том, что при попытке заполнить TListView данными из JSON-файла с использованием TJSONIterator.Next() не отображается первый элемент списка. Давайте разберемся, в чем может быть проблема и как ее можно исправить.

Описание проблемы

Разработчик использует TListView для отображения данных, полученных из JSON-файла. При выполнении кода данные отображаются корректно, за исключением первого элемента. Вопрос состоит в том, как правильно обработать JSON-объекты и в чем заключается ошибка в текущем коде.

Анализ кода

В предоставленном коде есть несколько моментов, на которые стоит обратить внимание:

1. В цикле while LIterator.Next do проверяется тип текущего токена. Если это начальный объект или массив, то вызывается метод Recurse, который должен перейти внутрь этого объекта или массива.
2. Внутри цикла создается новый элемент списка (oItem := ListView1.Items.Add;).
3. Далее, в цикле for NObjJSON := 0 to ListView1.ItemCount -1 do происходит попытка установить текст и деталь для каждого элемента списка, что выглядит нелогично, так как количество элементов списка не изменяется внутри этого цикла.
4. В коде также присутствует неправильное использование переменной NObjJSON, которая изначально присваивается значению LIterator.AsInteger, но не используется для индексации элементов JSON-массива.

Альтернативный ответ из контекста

В альтернативном ответе предлагается добавить дополнительные действия в начало цикла для обработки массива, а также приводится пример более простого кода с использованием TJSONObject. Однако, в вопросе явно указано, что нужно использовать именно TJSONIterator.

Подтвержденный ответ

После анализа и исправлений, разработчик нашел правильное решение. В коде были внесены следующие изменения:

• Удалена лишняя логика цикла for NObjJSON := 0 to ListView1.ItemCount -1 do, которая не использовалась для работы с данными.
• Добавлена проверка, что текущий токен является частью массива success и что именно символ (symbol) текущего объекта должен быть отображен.
• Используется переменная I вместо NObjJSON для подсчета объектов внутри массива.

var
  LIterator: TJSONIterator;
  LJsonTextReader: TJsonTextReader;
  LStringReader: TStreamReader;
  I: Integer;
  oItem: TListViewItem;
begin
  LStringReader := TStreamReader.Create('../../Data.json', TEncoding.UTF8, True);
  LJsonTextReader := TJsonTextReader.Create(LStringReader);
  LIterator := TJSONIterator.Create(LJsonTextReader);

  ListView1.Items.Clear;
  ListView1.BeginUpdate;
  try
    while True do
    begin
      while LIterator.Next do
      begin
        if LIterator.Type in [TJsonToken.StartObject, TJsonToken.StartArray] then
        begin
          LIterator.Recurse;
        end
        else if LIterator.Path = 'success[' + I.ToString + '].symbol' then
        begin
          oItem := ListView1.Items.Add;
          oItem.Text := LIterator.AsValue.ToString;
          Inc(I);
        end;
      end;
      if LIterator.InRecurse then
        LIterator.Return
      else
        Break;
    end;
    oItem.Detail := 'symbol';
  finally
    ListView1.EndUpdate;
    LIterator.Free;
    LJsonTextReader.Free;
    LStringReader.Free;
  end;
end;

Таким образом, после всех исправлений, разработчик смог корректно заполнить TListView данными из JSON-файла, используя TJSONIterator.

Заключение

При работе с JSON и TJSONIterator важно внимательно следить за тем, чтобы логика обработки данных соответствовала структуре JSON-файла. В данном случае, правильное использование метода Recurse и проверка пути текущего токена позволило корректно отобразить данные в TListView.

Создано по материалам из источника по ссылке.

Разработчик столкнулся с проблемой, когда при заполнении `TListView` данными из JSON-файла в Delphi не отображался первый элемент списка из-за ошибки в коде обработки JSON-данных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::