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 по умолчанию

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

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

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