Default для типа double в свойстве

@VadimExp · Регистрация: 10.05.2018

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Столкнулся с задачей написания компонента, одним из свойств которого является переменная типа double.
Не могу сообразить как правильно присвоить дефолтное значение.

C++
1
    __property double Min_X = { read = MinX, write = fMinX, default = 1.125 };

Ругается.
Если "defaul = 1", то проглатывает. Как же можно прописать это значение?

@Maluda · 16.07.2018, 14:45

VadimExp, когда-то сталкивался с подобной проблемой. Решение есть в следующем виде:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#define READ_NODEFAULT_PROC(NAME,TYPE)          inline void __fastcall OnRead##NAME##Proc(TReader* Reader) { F##NAME = Reader->Read##TYPE(); }
#define WRITE_NODEFAULT_PROC(NAME,TYPE)         inline void __fastcall OnWrite##NAME##Proc(TWriter* Writer) { Writer->Write##TYPE(F##NAME); }
#define READ_WRITE_NODEFAULT_PROC(NAME,TYPE)    READ_NODEFAULT_PROC(NAME,TYPE); WRITE_NODEFAULT_PROC(NAME,TYPE)
#define FILER_READ_WRITE_PROC(NAME)             Filer->DefineProperty(#NAME, OnRead##NAME##Proc, OnWrite##NAME##Proc, true);
 
class TMyClass : public TComponent
{
private:
    double FMin_X;
    READ_WRITE_NODEFAULT_PROC(Min_X, Float);
 
    double FMax_X;
    READ_WRITE_NODEFAULT_PROC(Max_X, Float);
 
protected:
    virtual void __fastcall DefineProperties(TFiler* Filer) {
        TComponent::DefineProperties(Filer);
 
        FILER_READ_WRITE_PROC(Min_X);
        FILER_READ_WRITE_PROC(Max_X);
    }
public:
 
    __fastcall TMyClass(TComponent *Owner): TComponent(Owner) {
        // DEFAULT
        FMin_X = 1.25;
        FMax_X = 10.55;
    }
 
__published:
    /* обязательно stored=false, чтобы отключить запись при вызове унаследованной функции TComponent::DefineProperties*/
    __property double Min_X = {read=FMin_X, write=FMin_X, stored=false};
    __property double Max_X = {read=FMax_X, write=FMax_X, stored=false};
};

@volvo · 16.07.2018, 14:52

Свойства вещественного типа в принципе не могут иметь дефолтных значений. Дельфи, скажем, вообще не разрешает использовать Default в подобном случае. С++ разрешает, но творит непонятно что в результате.

@Maluda · 16.07.2018, 15:44

Сообщение от volvo

Свойства вещественного типа в принципе не могут иметь дефолтных значений. Дельфи, скажем, вообще не разрешает использовать Default в подобном случае. С++ разрешает, но творит непонятно что в результате.

Этот комментарий абсолютно не верен.

Дело в том, что в Classes.pas есть явный баг

Delphi
1
2
3
4
5
6
7
8
9
10
function IsDefaultFloatProp: Boolean;
var
  Value: Extended;
begin
  Value := GetFloatProp(Instance, PropInfo);
  if AncestorValid then
    Result := Value = GetFloatProp(Ancestor, PropInfo)
  else
    Result := Value = 0;
end;

Этот баг должен быть исправлен следующим кодом

Delphi
1
2
3
4
5
6
7
8
9
10
function IsDefaultFloatProp: Boolean;
var
  Value: Extended;
begin
  Value := GetFloatProp(Instance, PropInfo);
  if AncestorValid then
    Result := Value = GetFloatProp(Ancestor, PropInfo)
  else
    Result := False;
end;

Соответствующий баг оформлен на QualityCentral

Но так как до сих пор нет никаких шевелений со стороны Embarcadero, пользуемся примером, который я указал выше (то есть переопределяем стандартную сериализацию double и т.д.)

Добавлено через 8 минут
Я забыл пояснить, что было бы, если бы не было этого бага.
Тогда мы определяли бы значение по умолчанию вот так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
class TMyClass : public TComponent
{
         double FTest;
public:
 
    __fastcall TMyClass(TComponent *Owner): TComponent(Owner) {
        FTest = 1.125;
    }
 
    bool __fastcall IsTestStored() { return FTest!=1.125; }
 
__published:
    __property double Test = {read=FTest, write=FTest, stored=IsTestStored};
};

@volvo · 16.07.2018, 16:01

Эти все измышления мне неинтересны. Я играю по правилам языка программирования, которые пишут его разработчики. А не по правилам тех, кому всюду мерещатся баги...

Просто, чтобы было понятно: E2146 Default values must be of ordinal, pointer or small set type (Delphi)

@Maluda · 16.07.2018, 17:03

volvo, спецификатор default при записи всего лишь указывает классу TWriter сериализовать значение или нет.

Рассмотрим следующий пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
class TMyClass : public TComponent {
    int FTest;
public:
    __fastcall TMyClass(TComponent *Owner): TComponent(Owner) {
        // DEFAULT
        FTest = 10;
    }
 
__published:
    __property int Test = {read=FTest, write=FTest, default=777};
};
 
TMyClass *AMyClass = new TMyClass(NULL);
ShowMessage(AMyClass->Test);

Какое бы число мы ни записали в default, всё равно

C++
1
ShowMessage(AMyClass->Test);

будет равно 10.

Следовательно необходимо для начала разобраться с фразой значение по умолчанию.
Так вот значение по умолчанию определяется только в конструкторе класса и никак иначе.

Теперь, что такое default - это значение по умолчанию для сериализатора, то есть для класса TWriter, который будет записывать (или не записывать) это значение в поток.

конструкция

C++
1
__property int Test = {read=FTest, write=FTest, default=777};

эквивалентна

C++
1
2
bool __fastcall IsTestStored(void) { return FTest!=777; }
__property int Test = {read=FTest, write=FTest, stored=IsTestStored};

То есть в обоих случаях, если FTest будет равно 777, TWriter не запишет значение в поток.

Теперь вопрос на счёт типа double. Да, спецификатор default для него применять нельзя, но, кто мешает использовать спецификатор stored ? Он точно также сообщает TWriter о значении по умолчанию при сериализации.
И если бы не баг с функцией IsDefaultFloatProp в недрах Classes.pas, то на этом можно было бы и ставить точку. А так придётся использовать вышеуказанный мной метод.

volvo, кстати обратите внимание на название метода IsDefaultFloatProp

С чего бы ему так называться, если бы не было возможности иметь тип Float по умолчанию

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@volvo Супер-модератор 33405 / 21515 / 8236 Регистрация: 22.10.2011 Сообщений: 36,916 Записей в блоге: 12
	16.07.2018, 14:52
	Свойства вещественного типа в принципе не могут иметь дефолтных значений. Дельфи, скажем, вообще не разрешает использовать Default в подобном случае. С++ разрешает, но творит непонятно что в результате. 0

@volvo Супер-модератор 33405 / 21515 / 8236 Регистрация: 22.10.2011 Сообщений: 36,916 Записей в блоге: 12
	16.07.2018, 16:01
	Эти все измышления мне неинтересны. Я играю по правилам языка программирования, которые пишут его разработчики. А не по правилам тех, кому всюду мерещатся баги... Просто, чтобы было понятно: E2146 Default values must be of ordinal, pointer or small set type (Delphi) 1