Работа со структурами данных в Delphi: динамическое изменение полей класса `TCustomers_Manager`

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

Статья: Работа со структурами данных в Delphi: Динамическое изменение полей класса TCustomers_Manager

Вопрос, поднятый пользователем, заключается в необходимости создания процедуры для изменения значений полей структуры данных TCustomer внутри класса TCustomers_Manager, который хранит список клиентов. Структура TCustomer содержит поля Name, IDNumber и IsMarried. Задача состоит в том, чтобы разработать процедуру ChangeCustomer, которая могла бы изменять значения полей структуры по имени поля и индексу клиента.

Решение проблемы

1) Маппинг строкового названия поля к фактическому полю структуры

Для решения первой части вопроса необходимо использовать информацию о типе, доступную во время выполнения (Runtime Type Information - RTTI). В современных версиях Delphi RTTI генерируется даже для записей, что позволяет работать с ними как с классами.

2) Передача значений различного типа

Вторая часть вопроса касается возможности передачи значений разных типов в процедуру. Для этого можно использовать параметр Variant, который позволит принимать значения различных типов и проверять их на соответствие ожидаемому типу поля перед назначением.

Пример реализации

uses
  TypInfo, Vcl.ComObj;

procedure ChangeCustomer(CustomerIndex: Integer; FieldName: string; Value: Variant);
var
  Customer: TCustomer;
begin
  // Получаем клиента по индексу
  Customer := GetCustomerByIndex(CustomersList, CustomerIndex);

  // Используем RTTI для изменения поля по имени
  if TrySetFieldValue(Customer, FieldName, Value) then
    // Операция выполнена успешно
  else
    // Ошибка: поле не найдено или тип значения не соответствует типу поля
end;

function GetCustomerByIndex(const CustomersList: TList<TCustomer>; Index: Integer): TCustomer;
begin
  // Реализация получения клиента по индексу из списка
end;

function TrySetFieldValue(var Object: TObject; const FieldName: string; Value: Variant): Boolean;
var
  FieldInfo: PTypeInfo;
begin
  // Используем RTTI для поиска поля и его изменения
  Result := GetTypeData(Object, FieldName, FieldInfo) and
            SetFieldValueByRTTI(Object, FieldInfo, Value);
end;

function GetTypeData(const Object: TObject; const FieldName: string; var FieldInfo: PTypeInfo): Boolean;
begin
  // Реализация получения информации о поле с использованием RTTI
end;

function SetFieldValueByRTTI(var Object: TObject; const TypeInfo: PTypeInfo; Value: Variant): Boolean;
begin
  // Реализация изменения значения поля с использованием RTTI
end;

Альтернативные подходы

Использование TClientDataSet

Ещё один способ решения проблемы - использование компонента TClientDataSet или аналогичного MemoryDataSet. Создаём TClientDataSet с нужными полями, открываем его, заполняем данными, находим запись и изменяем значения полей через FieldByName.

Преобразование записи в класс

Можно также преобразовать структуру в класс, объявить поля как опубликованные и использовать функцию SetPropValue для динамического изменения свойств.

Заключение

В статье были рассмотрены различные подходы к решению задачи динамического изменения полей структуры данных в Delphi. Использование RTTI, компонентов на основе данных и преобразование записей в классы - все эти методы могут быть использованы для реализации процедуры ChangeCustomer. Выбор конкретного метода зависит от требований проекта и предпочтений разработчика.

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

Создание процедуры в Delphi для динамического изменения полей структуры данных внутри класса, хранящего список клиентов.

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

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

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