Итерирование по параметрам TFDParams в Delphi с помощью цикла for..in..do

Delphi , Синтаксис , Циклы

- это распространенная задача, с которой сталкиваются разработчики, работающие с FireDAC в Delphi. В этой статье мы рассмотрим, как выполнить итерацию по параметрам TFDParams с помощью цикла for..in..do в Delphi 10.2 Tokyo и более поздних версиях.

Для начала давайте рассмотрим пример кода, который пытается выполнить итерацию по параметрам TFDParams с помощью цикла for..in..do:

function ShowFinalSQL(const qry: TFDQuery): String;
var
  cSQL: String;
  oParam: TFDParam;
begin
  cSQL := qry.SQL.Text;
  for oParam in qry.Params do
    cSQL := cSQL.Replace(oParam.Name, oParam.Value);
  Result := cSQL;
end;

Однако при попытке компиляции этого кода мы получаем ошибку:

[dcc32 Error] DTUtilBD.pas(3115): E2010 Incompatible types: 'TFDParam' and 'TCollectionItem'

Эта ошибка возникает из-за того, что TFDQuery.Params является TFDParams, который можно итерировать с помощью цикла for..in, так как он имеет публичный метод GetEnumerator(). Однако этот метод наследуется от TCollection для итерации по элементам TCollectionItem, а не по элементам TFDParam. В результате, когда цикл пытается присвоить свойство Current перечислителя переменной oParam, возникает ошибка компиляции, поскольку TCollectionItem не может быть присвоен TFDParam.

Для решения этой проблемы нам нужно изменить тип переменной oParam на TCollectionItem и выполнить приведение типа, когда нам нужно получить доступ к членам TFDParam. Вот пример кода, который решает эту проблему:

function ShowFinalSQL(const qry: TFDQuery): String;
var
  cSQL: String;
  oParam: TCollectionItem;
begin
  cSQL := qry.SQL.Text;
  for oParam in qry.Params do
    cSQL := cSQL.Replace(TFDParam(oParam).Name, TFDParam(oParam).Value);
  Result := cSQL;
end;

Мы также можем выполнить приведение типа в отдельной строке кода, как показано в следующем примере:

function ShowFinalSQL(const qry: TFDQuery): String;
var
  cSQL: String;
  oItem: TCollectionItem;
  oParam: TFDParam;
begin
  cSQL := qry.SQL.Text;
  for oItem in qry.Params do
  begin
    oParam := TFDParam(oItem);
    cSQL := cSQL.Replace(oParam.Name, oParam.Value);
  end;
  Result := cSQL;
end;

Наконец, мы можем использовать ключевое слово absolute для избежания ручного приведения типа, как показано в следующем примере:

function ShowFinalSQL(const qry: TFDQuery): String;
var
  cSQL: String;
  oItem: TCollectionItem;
  oParam: TFDParam absolute oItem;
begin
  cSQL := qry.SQL.Text;
  for oItem in qry.Params do
  begin
    cSQL := cSQL.Replace(oParam.Name, oParam.Value);
  end;
  Result := cSQL;
end;

В этом примере переменная oParam занимает тот же адрес памяти, что и переменная oItem, поэтому нам не нужно выполнять приведение типа.

В заключение, итерация по параметрам TFDParams с помощью цикла for..in..do в Delphi 10.2 Tokyo и более поздних версиях требует приведения типа, так как метод GetEnumerator() возвращает элементы TCollectionItem, а не TFDParam. Мы можем выполнить это приведение типа вручную или использовать ключевое слово absolute для избежания ручного приведения типа.

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

В статье рассматривается задача итерации по параметрам TFDParams с помощью цикла for..in..do в Delphi 10.2 Tokyo и более поздних версиях, а также способы решения проблемы, связанной с несовместимостью типов при прямом итерировании по параметрам.

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

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

:: Главная :: Циклы ::