Как правильно заполнить класс данными из ADOQuery в Delphi?

Delphi , Базы данных , Access

Вопрос о том, как заполнить данные из ADOQuery в объект класса в Delphi, является актуальным для разработчиков, которые хотят организовать доступ к данным в удобном и структурированном виде. В данном случае, создается класс, который будет представлять собой хранилище данных, полученных из базы данных через компонент ADOQuery.

Исходная проблема заключается в том, что пользователь, новый в использовании Delphi, пытается прочитать результат SQL-запроса в класс для удобного доступа к данным. Создается класс test_class с полями и методом get_record_data, который должен заполнить эти поля данными. Однако, при попытке обратиться к полям класса, возникают ошибки компиляции.

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

type
  TTestClass = class
  private
    FId: Integer;
    FJobNumber: string;
    FCustName: string;
  public
    procedure GetRecordData(AQuery: TADOQuery);
    property Id: Integer read FId;
    property JobNumber: string read FJobNumber;
    property CustName: string read FCustName;
  end;

procedure TTestClass.GetRecordData(AQuery: TADOQuery);
begin
  FId := AQuery.FieldByName('id').AsInteger;
  FJobNumber := AQuery.FieldByName('job number').AsString;
  FCustName := AQuery.FieldByName('customer name').AsString;
end;

Пример использования класса test_class в обработчике события формы:

procedure TForm3.Button1Click(Sender: TObject);
var
  TC: TTestClass;
begin
  TC := TTestClass.Create;
  try
    TC.GetRecordData(ADOQuery1);
    ShowMessage('Id number is ' + IntToStr(TC.Id));
  finally
    TC.Free;
  end;
end;

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

Альтернативный ответ предусматривает использование конструктора класса, который будет принимать объект ADOQuery в качестве параметра. Это позволяет создать объект класса и заполнить его данные в момент создания:

type
  TTestClass = class
  private
    FId: Integer;
    FJobNumber: string;
    FCustName: string;
  public
    constructor Create(AQuery: TADOQuery); overload;
    destructor Destroy; override;
    property Id: Integer read FId;
    property JobNumber: string read FJobNumber;
    property CustName: string read FCustName;
  end;

constructor TTestClass.Create(AQuery: TADOQuery);
begin
  inherited Create;
  FId := AQuery.FieldByName('id').AsInteger;
  FJobNumber := AQuery.FieldByName('job number').AsString;
  FCustName := AQuery.FieldByName('customer name').AsString;
end;

И использование его в обработчике события:

procedure TForm3.Button1Click(Sender: TObject);
var
  TC: TTestClass;
begin
  TC := TTestClass.Create(ADOQuery1);
  try
    ShowMessage('Id number is ' + IntToStr(TC.Id));
  finally
    TC.Free;
  end;
end;

Использование конструктора упрощает код и делает его более читаемым, а также обеспечивает явное управление ресурсами, что важно для предотвращения утечек памяти.

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

Использование TCustomAdodataset вместо TAdoQuery позволяет обеспечить большую гибкость, так как TCustomAdodataset является базовым классом для TADODataSet, TADOQuery, TADOTable и TADOStoredProc, что позволяет использовать один и тот же класс для разных компонентов, наследующих TCustomAdodataset.

В заключение, правильное заполнение класса данными из ADOQuery в Delphi требует понимания основ объектно-ориентированного программирования, правильного использования конструкторов и деструкторов, а также управления ресурсами для предотвращения утечек памяти.

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

Вопрос связан с тем, как в языке программирования Delphi заполнить поля класса данными, полученными из компонента ADOQuery, который используется для выполнения SQL-запросов к базе данных.

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

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

:: Главная :: Access ::