Настройка свойств с плавающей точкой в Delphi: решение проблемы сохранения не нулевых значений

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

Вопрос, который поднял пользователь Max, касается настройки свойства с плавающей точкой в компоненте Delphi, которое должно иметь не нулевое значение по умолчанию. В частности, рассматривается ситуация, когда свойство инициализируется значением 1000.0, но из-за особенностей работы с плавающей точкой в Delphi, при попытке установить значение по умолчанию с помощью директивы default, компилятор выдает ошибку, так как значения по умолчанию могут быть только целочисленными, указателями или небольшими наборами значений. Также упоминается, что попытка использовать директиву stored для принудительного сохранения значения не приводит к успеху.

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

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

1. Переопределить метод DefineProperties в классе, наследуемом от TPersistent, для создания пользовательской логики сохранения и загрузки свойств.
2. Использовать RTTI для сохранения имени свойства и работы с ним в пользовательской логике.
3. Использовать обертку в виде класса для создания функции чтения и записи свойства, передавая необходимые параметры в конструктор этого класса.

Пример реализации класса для работы с свойствами:

TOverridePropFiler = class
  private
    FReadWritePropName: string;
    FObject: TObject;
    procedure ReadOverrideProp(Reader: TReader);
    procedure WriteOverrideProp(Writer: TWriter);
  public
    constructor Create(AFiler: TFiler; AObj: TObject; AName: string);
end;

constructor TOverridePropFiler.Create(AFiler: TFiler; AObj: TObject; AName: string);
begin
  FReadWritePropName := AName;
  FObject := AObj;
  // Проверка наличия свойства и его корректности
  // ...
  AFiler.DefineProperty(AName, ReadOverrideProp, WriteOverrideProp,
    GetPropValue(FObject, FReadWritePropName, False) <> uiFloat);
end;

procedure TOverridePropFiler.ReadOverrideProp(Reader: TReader);
begin
  SetPropValue(FObject, FReadWritePropName, Reader.ReadFloat);
end;

procedure TOverridePropFiler.WriteOverrideProp(Writer: TWriter);
begin
  Writer.WriteDouble(GetPropValue(FObject, FReadWritePropName, False));
end;

procedure TMyObj.DefineProperties(Filer: TFiler);
begin
  inherited;
  TOverridePropFiler.Create(Filer, Self, 'dTOverride').Free;
end;

В данном примере создается обертка TOverridePropFiler, которая позволяет определить собственное поведение для чтения и записи свойства. Это позволяет обойти ограничения, связанные с директивами default и stored для свойств с плавающей точкой.

В конструкторе класса TMyObj необходимо вызвать метод DefineProperties, который инициализирует пользовательскую логику для свойств. Необходимо также установить значение свойства в конструкторе компонента и добавить директиву __nodefault__ для свойства.

Заключение

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

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

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

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

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

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