Использование перечисляемых типов данных в Delphi и Pascal для удобного расширения информации

Delphi , Интернет и Сети , Json

В мире программирования на Delphi и Pascal часто возникает необходимость работы с большими объемами структурированных данных. Рассмотрим, как правильно организовать хранение и обработку информации о странах, используя лучшие практики Object Pascal.

Проблема хранения сложных данных

Как видно из исходного кода, автор столкнулся с проблемой управления большим объемом информации о странах. Первоначальный подход с использованием встроенных в код данных приводит к нескольким проблемам:

1. Код становится громоздким и трудночитаемым
2. Изменение данных требует перекомпиляции программы
3. Добавление новых стран или полей усложняет поддержку приложения

Решение: отделение данных от кода

Вариант 1: Использование JSON для хранения данных

Наиболее современный и гибкий подход - хранение данных в формате JSON. Вот пример структуры JSON для хранения информации о странах:

{
  "countries": [
    {
      "name": "Afghanistan",
      "officialName": "Islamic Emirate of Afghanistan",
      "capitalCity": "Kabul",
      "demographics": {
        "population": "~41 million",
        "populationDensity": "~63/km²"
      },
      "economy": {
        "gdp": "$20 billion",
        "majorIndustries": "Agriculture, textiles, mining"
      }
    },
    {
      "name": "Albania",
      "officialName": "Republic of Albania",
      "capitalCity": "Tirana",
      "demographics": {
        "population": "~2.8 million",
        "populationDensity": "~100 people per km²"
      }
    }
  ]
}

Для работы с JSON в Delphi можно использовать библиотеки System.JSON или сторонние решения.

Пример загрузки данных из JSON:

uses
  System.JSON, System.Classes, System.IOUtils;

procedure TForm1.LoadCountriesFromJSON(const AFileName: string);
var
  JSONString: string;
  JSONObject, CountryObj: TJSONObject;
  CountriesArray: TJSONArray;
  I: Integer;
begin
  JSONString := TFile.ReadAllText(AFileName);
  JSONObject := TJSONObject.ParseJSONValue(JSONString) as TJSONObject;
  try
    CountriesArray := JSONObject.GetValue('countries') as TJSONArray;
    SetLength(Countries, CountriesArray.Count);

    for I := 0 to CountriesArray.Count - 1 do
    begin
      CountryObj := CountriesArray.Items[I] as TJSONObject;
      Countries[I].Name := CountryObj.GetValue('name').Value;
      Countries[I].OfficialName := CountryObj.GetValue('officialName').Value;
      // Загрузка остальных полей аналогично
    end;
  finally
    JSONObject.Free;
  end;
end;

Вариант 2: Использование ресурсов

Если необходимо хранить данные внутри исполняемого файла, можно использовать ресурсы:

{$R countriesdata.res}

procedure TForm1.LoadCountriesFromResource;
var
  ResStream: TResourceStream;
  JSONString: string;
begin
  ResStream := TResourceStream.Create(HInstance, 'COUNTRIES_DATA', RT_RCDATA);
  try
    SetLength(JSONString, ResStream.Size);
    ResStream.ReadBuffer(JSONString[1], ResStream.Size);
    // Далее парсим JSON как в предыдущем примере
  finally
    ResStream.Free;
  end;
end;

Вариант 3: Использование баз данных

Для больших объемов данных лучше использовать встроенные базы данных, такие как SQLite:

uses
  SQLite3, SQLite3Wrapper;

procedure TForm1.LoadCountriesFromSQLite;
var
  DB: TSQLiteDatabase;
  Query: TSQLiteQuery;
begin
  DB := TSQLiteDatabase.Create('countries.db');
  try
    Query := DB.Query('SELECT * FROM countries');
    try
      SetLength(Countries, Query.RecordCount);
      while not Query.EOF do
      begin
        // Заполняем структуру Countries
        Query.Next;
      end;
    finally
      Query.Free;
    end;
  finally
    DB.Free;
  end;
end;

Улучшение структуры кода

Использование классов вместо записей

Для более удобной работы с данными можно перейти от записей к классам:

type
  TDemographics = class
  private
    FPopulation: string;
    FPopulationDensity: string;
    // Остальные поля
  public
    property Population: string read FPopulation write FPopulation;
    property PopulationDensity: string read FPopulationDensity write FPopulationDensity;
    // Остальные свойства
  end;

  TCountry = class
  private
    FName: string;
    FOfficialName: string;
    FDemographics: TDemographics;
    // Остальные поля
  public
    constructor Create;
    destructor Destroy; override;
    property Name: string read FName write FName;
    property OfficialName: string read FOfficialName write FOfficialName;
    property Demographics: TDemographics read FDemographics;
    // Остальные свойства
  end;

  TCountries = class(TObjectList<TCountry>)
  public
    procedure LoadFromJSON(const AFileName: string);
    procedure SaveToJSON(const AFileName: string);
  end;

Упрощение отображения данных

Вместо большого количества условных операторов в ShowCountryDetails можно использовать привязку данных:

procedure TForm1.ShowCountryDetails(ACountry: TCountry);
begin
  MemoOverview.Lines.Clear;
  MemoOverview.Lines.Add('Country Name: ' + ACountry.Name);
  MemoOverview.Lines.Add('Official Name: ' + ACountry.OfficialName);
  // И так далее для всех полей

  // Или использовать привязку данных
  BindingsList1.Bind('Name', ACountry, 'Name', MemoOverview, 'Text');
  // И так далее для всех полей
end;

Заключение

Для работы с большими объемами структурированных данных в Delphi и Pascal рекомендуется:

1. Отделять данные от кода, используя JSON, XML или базы данных
2. Использовать классы вместо записей для более гибкого управления данными
3. Применять привязку данных для упрощения отображения информации
4. Для сложных проектов рассматривать использование ORM-библиотек

Такой подход сделает код более поддерживаемым, удобным для расширения и модификации.

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

Использование перечисляемых типов данных в Delphi и Pascal для удобного хранения и обработки структурированной информации о странах с примерами реализации через JSON, ресурсы и базы данных.

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

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

:: Главная :: Json ::