Скопировать свойства одного экземпляра класса в другой с использованием RTTI в Delphi

Delphi , Компоненты и Классы , RTTI

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

Шаг 1: Создание функций для работы с RTTI

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

uses
  Rtti, TypInfo;

procedure GetObjectProperties(AObject: TObject; AList: TStrings);
var
  ctx: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
  AValue: TValue;
  sVal: string;
begin
  // Ваш код для получения свойств объекта
end;

procedure CopyObject<T: class>(ASourceObject, ATargetObject: T);
var
  ctx: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
  AValue: TValue;
begin
  // Ваш код для копирования свойств объекта
end;

Шаг 2: Реализация функции получения свойств

procedure TForm1.GetObjectProperties(AObject: TObject; AList: TStrings);
var
  ctx: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
  AValue: TValue;
  sVal: string;
begin
  if not Assigned(AObject) and not Assigned(AList) then
    Exit;

  ctx := TRttiContext.Create;
  rType := ctx.GetType(AObject.ClassInfo);
  for rProp in rType.GetProperties do
  begin
    if (rProp.IsReadable) and not (rProp.PropertyType.TypeKind in [tkUnknown, tkInterface]) then
    begin
      AValue := rProp.GetValue(AObject);
      if AValue.IsEmpty then
        sVal := 'nil'
      else
        sVal := AValue.ToString;
      AList.Add(rProp.Name + '=' + sVal);
    end;
  end;
end;

Шаг 3: Реализация функции копирования свойств

procedure TForm1.CopyObject<T>(ASourceObject, ATargetObject: T);
var
  ctx: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
  AValue: TValue;
  ASource, ATarget: TValue;
begin
  Assert(Assigned(ASourceObject) and Assigned(ATargetObject), 'Both objects must be assigned');
  ctx := TRttiContext.Create;
  rType := ctx.GetType(ASourceObject.ClassInfo);
  ASource := TValue.From<T>(ASourceObject);
  ATarget := TValue.From<T>(ATargetObject);
  for rProp in rType.GetProperties do
  begin
    if (rProp.IsReadable) and (rProp.IsWritable) and not (rProp.PropertyType.TypeKind in [tkUnknown, tkInterface, tkClass, tkClassRef, tkPointer, tkProcedure]) then
    begin
      AValue := rProp.GetValue(ASource.AsObject);
      rProp.SetValue(ATarget.AsObject, AValue);
    end;
  end;
end;

Шаг 4: Использование функций в вашем приложении

procedure TForm1.Button0Click(Sender: TObject);
var
  demo1, demo2: TDemo;
begin
  demo1 := TDemo.Create;
  demo2 := TDemo.Create;
  demo1.StrField := '1023';

  Memo1.Lines.Add('---Demo1---');
  GetObjectProperties(demo1, Memo1.Lines);
  CopyObject<TDemo>(demo1, demo2);

  Memo1.Lines.Add('---Demo2---');
  GetObjectProperties(demo2, Memo1.Lines);
end;

Заключение

Используя приведенный выше код, вы можете скопировать свойства одного экземпляра класса в другой, используя механизмы RTTI в Delphi. Это особенно полезно, когда свойства объектов сложные и требуют автоматического копирования без необходимости ручного перечисления каждого свойства. Убедитесь, что вы используете версию Delphi, поддерживающую RTTI, и что у вас есть доступ к необходимым заголовочным файлам.

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

Копирование свойств одного экземпляра класса в другой с использованием RTTI в Delphi включает создание функций для работы со свойствами и их последующее копирование, обеспечивая гибкость в обработке данных без необходимости знать внутреннюю ст

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

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

:: Главная :: RTTI ::