Как получить значение по умолчанию свойства класса?

← →
BofA © (2003-03-14 23:30) [0]

Например: есть класс TMyClass, в нем есть property Value: Byte read... write... default 5; пусть объявлен MyClass: TMyClass, как можно получить не текущее значение Value, а то, что было по умолчанию?

← →
Anatoly Podgoretsky © (2003-03-14 23:47) [1]

Сохранить его предварительно, класс то твой или как?

См. TPropInfo.Default в модуле TypInfo. Пример:

uses
..., TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
P: PPropInfo;
begin
P := GetPropInfo(TButton, "Visible");
if P <> nil then
Caption := GetEnumName(TypeInfo(Boolean), P^.Default)
end;

Получаем "True". Если в первой строке заменить TButton на TForm, получим "False". Что тоже соответствует истине.

Как получить значение по умолчанию свойства класса? Найти похожие ветки