Скачать: CL | DM;

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

← →
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]

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

---

← →
Юрий Зотов ©   (2003-03-15 08:52) [2]

См. 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". Что тоже соответствует истине.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c