Как решить проблемы чтения свойств `TPersistent` в Delphi: пример с `TFont`

Delphi , Компоненты и Классы , Свойства и События

Как решить проблемы чтения свойств TPersistent в Delphi: пример с TFont

При работе с компонентами в Delphi, разработчики часто сталкиваются с необходимостью обновления свойств. Для предотвращения ошибок, связанных с отсутствием свойств, используется метод __DefineProperties__, который позволяет читать старые свойства из потока. В большинстве случаев этот процесс работает без проблем, например, для свойств типа Integer. Однако, при работе со свойствами, основанными на TPersistent, возникают трудности. Процедура ReadProperty(TPersistent) в классе TReader защищена и не является публичной, что требует использования хаков для доступа к ней. В данной статье мы рассмотрим, как решить проблему чтения свойства TFont в компоненте.

Проблема с чтением свойства TFont

Разработчик столкнулся с проблемой при попытке чтения свойства TFont в компоненте TMyComponent. Свойство FFontProperty было удалено, и вместо него было создано новое свойство FNewFontProperty. При попытке определения свойства с помощью метода DefineProperty и вызова процедуры ReadFontProperty, чтение свойства не происходит, и возникает исключение об ошибке отсутствующего свойства.

Пример кода

В коде, предоставленном разработчиком, видно, что для свойства Integer чтение происходит корректно, но для свойства Font - нет. Попытка доступа к защищенной процедуре ReadProperty через хак не приводит к желаемому результату.

type
  TMyComponent = class(TComponent)
  strict private
    FNewIntegerProperty: Integer;
    FNewFontProperty: TFont;
    // ...
  protected
    procedure DefineProperties(Filer: TFiler); override;
    // ...
  end;

implementation

procedure TMyComponent.DefineProperties(Filer: TFiler);
begin
  inherited;
  // Чтение Integer свойства работает
  Filer.DefineProperty('NewIntegerProperty', ReadIntegerProperty, nil, FALSE);
  // Чтение Font свойства не работает
  Filer.DefineProperty('FontProperty', ReadFontProperty, nil, FALSE);
end;

procedure TMyComponent.ReadFontProperty(Reader: TReader);
begin
  // Попытка чтения свойства через хак не удалась
  THackReader(Reader).ReadProperty(FNewFontProperty);
end;

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

Для решения проблемы необходимо работать с каждым опубликованным свойством TFont отдельно и использовать полные квалифицированные имена.

Filer.DefineProperty('NewFontProperty.Name', ReadFontName, nil, False);
Filer.DefineProperty('NewFontProperty.Height', ReadFontHeight, nil, False);
Filer.DefineProperty('NewFontProperty.Size', ReadFontSize, nil, False);
// и так далее для всех других опубликованных свойств TFont

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

procedure TMyComponent.ReadFontName(Reader: TReader);
begin
  FNewFontProperty.Name := Reader.ReadString;
end;
// и т.д.

Чтение свойства Charset

Чтение свойства Charset является более сложной задачей, так как оно может быть представлено как текстовый идентификатор, так и как целочисленное значение. Ниже приведен пример кода, который позволяет прочитать это свойство.

procedure TMyComponent.ReadFontCharset(Reader: TReader);
begin
  // ...
  case Reader.ReadValue of
  vaIdent:
    begin
      Ident := ReadIdent;
      if not IdentToCharset(Ident, CharsetOrdinal) then begin
        raise EReadError.Create('Не удалось прочитать MyFont.Charset');
      end;
      FNewFontProperty.Charset := CharsetOrdinal;
    end;
  vaInt8:
    FNewFontProperty.Charset := ReadInt8;
  vaInt16:
    FNewFontProperty.Charset := ReadInt16;
  else
    raise EReadError.Create('Не удалось прочитать FontProperty.Charset');
  end;
end;

Заключение

В данной статье мы рассмотрели, как можно решить проблему чтения свойств TPersistent в Delphi, используя TFont в качестве примера. Мы увидели, что для каждого свойства необходимо создать отдельную процедуру чтения, и что для свойства Charset может потребоваться дополнительная логика для обработки различных типов данных. Применение этих подходов позволит разработчикам избегать ошибок при работе с компонентами и их свойствами.

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

При решении проблемы чтения свойств `TPersistent` в Delphi, связанной с использованием компонента `TFont`, необходимо отдельно обрабатывать каждое свойство и использовать полные квалифицированные имена, а также разработать специальные процедуры для чтени

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

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

:: Главная :: Свойства и События ::