Работа с JSON в Delphi: Извлечение значений из поля "Code"

Delphi , Синтаксис , Массивы

В статье мы рассмотрим, как работать с JSON-объектами в среде разработки Delphi, используя язык программирования Object Pascal. В частности, мы сосредоточимся на извлечении значений из определенного поля JSON, которое имеет ключ "Code". Для наглядности приведем пример кода, который демонстрирует, как можно создать массив значений "Code" из полученного JSON и использовать его для поиска введенных пользователем значений.

Шаг 1: Получение JSON из веб-ресурса

Предположим, что у нас есть JSON-структура, полученная из веб-ресурса, с информацией о коде и описании. Для начала нам нужно извлечь эти данные из сети в наш проект.

procedure TForm1.Button1Click(Sender: TObject);
var
  data: string;
begin
  try
    data := GetURLAsString('http://...'); // URL вашего JSON
  except
    on E: Exception do
      ShowMessage('Ошибка при получении данных: ' + E.Message);
  end;
end;

Шаг 2: Разбор JSON и извлечение значений "Code"

После получения данных, мы должны разобрать JSON и извлечь значения из поля "Code". Для этого мы можем использовать встроенные компоненты Delphi для работы с JSON.

procedure TForm1.Button2Click(Sender: TObject);
var
  jsv: TJSONValue;
  jsa: TJSONArray;
  jso: TJSONObject;
  i: Integer;
  codes: TArray<string>;
begin
  try
    // Предполагаем, что переменная data уже содержит JSON-строку из шага 1
    jsv := TJSONObject.ParseJSONValue(TJSONTextReader.Create(data));
    if jsv <> nil then
    begin
      jsa := jsv as TJSONArray;
      SetLength(codes, jsa.Count);
      for i := 0 to jsa.Count - 1 do
      begin
        jso := jsa[i] as TJSONObject;
        codes[i] := jso.GetValueDef('Code', nil).ToString;
      end;
    end;
  except
    on E: Exception do
      ShowMessage('Ошибка при разборе JSON: ' + E.Message);
  end;
end;

Шаг 3: Поиск значения в массиве "Code"

Теперь, когда у нас есть массив codes, мы можем легко искать в нем значение, введенное пользователем.

procedure TForm1.Button3Click(Sender: TObject);
var
  userInput: string;
  i: Integer;
begin
  userInput := Edit1.Text; // Предполагаем, что Edit1 содержит введенное пользователем значение
  for i := Low(codes) to High(codes) do
  begin
    if codes[i] = userInput then
    begin
      ShowMessage('Значение найдено');
      Exit;
    end;
  end;
  ShowMessage('Значение не найдено');
end;

Обсуждение подтвержденного ответа

В приведенном выше коде выделены основные шаги для работы с JSON в Delphi. Важно отметить, что изначально предложенный пользователем код содержал ошибку: сравнение всего JSON-объекта со строкой "Code" было некорректным. Вместо этого, необходимо было извлекать значение поля "Code" и сравнивать его с введенным пользователем значением.

Заключение

В данной статье мы рассмотрели, как извлекать значения из JSON-структур в среде Delphi, используя язык Object Pascal. Мы создали массив значений "Code" и продемонстрировали, как его можно использовать для поиска введенных пользователем значений. Это базовый пример, который может быть расширен и адаптирован для более сложных задач работы с JSON в вашем проекте на Delphi.

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

Статья посвящена работе с JSON-объектами в среде разработки Delphi, включая извлечение данных из поля 'Code' и поиск введенных пользователем значений в полученном массиве.

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

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

:: Главная :: Массивы ::