"Прямой перевод результатов запроса FDQuery в массив записей в Delphi: оптимизация работы с данными SQLite"

Delphi , Синтаксис , Записи и Множества

Прямой перевод результатов запроса FDQuery в массив записей в Delphi

Вопрос, который часто возникает при работе с базами данных и компонентами DataSet в Delphi, заключается в том, как эффективно преобразовать результаты SQL-запросов в структурированные массивы для дальнейшей обработки. В данной статье мы рассмотрим подход к решению этой задачи на примере работы с базой данных SQLite и компонентом FDQuery.

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

Вам необходимо преобразовать данные, полученные из запроса FDQuery, в массив записей TPersonList, который представляет собой тип array of TPerson. Каждая запись содержит поля id, name и surname, соответствующие столбцам в вашей SQLite базе данных. Обычный способ добавления значений в такой массив выглядит следующим образом:

var Persons: TPersonList;
begin
Persons[0].id := FDQuery1.FieldByName('id').AsInteger;
// ... и так далее для остальных полей ...
end;

Однако, возможно ли упростить этот процесс? Можно ли создать функцию или метод, который бы напрямую заполнял массив записями из результатов запроса?

Подход к решению

Хотя прямого способа выполнения такой операции в FDQuery нет, можно написать вспомогательный класс для инициализации новых значений соответствующего типа на основе данных из Dataset. Это позволит улучшить эффективность как разработки, так и работы программы.

type
  TPersonFDInitialiser = class
  private
    fldID: TIntegerField;
    fldName: TStringField;
    fldSurname: TStringField;
    function Get_NewValue: TPerson;
  public
    constructor Create(const ASource: TDataset);
    property NewValue: TPerson read Get_NewValue;
  end;

constructor TPersonFDInitialiser.Create(const ASource: TDataset);
begin
  inherited;
  fldID := ASource.FieldByName('id') as TIntegerField;
  fldName := ASource.FieldByName('name') as TStringField;
  fldSurname := ASource.FieldByName('surname') as TStringField;
end;

function TPersonFDInitialiser.Get_NewValue: TPerson;
begin
  Result.ID := fldID.Value;
  Result.Name := fldName.Value;
  Result.Surname := fldSurname.Value;
end;

Использование такого класса позволяет итерировать по результатам запроса, заполняя массив записями:

recno := 0;
init := TPersonFDInitialiser.Create(qryPersons);
try
  while not qryPersons.EOF do
  begin
    Persons[recno] := init.NewValue;
    qryPersons.Next;
    Inc(recno);
  end;
finally
  init.Free;
end;

Дальнейшее развитие

Существует множество возможностей для улучшения и расширения функциональности такого класса инициализации, например:

• Создание класс-функции NewValue, которая будет возвращать новый экземпляр TPerson без необходимости создания объекта инициализатора.
• Реализация процедуры SetPerson, которая позволит обновлять существующие записи.

Эти улучшения могут быть полезны в зависимости от ваших потребностей и помогут сделать работу с данными более удобной и эффективной.

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

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

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

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

:: Главная :: Записи и Множества ::