Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: 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 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
3-87832
Андрей.
2003-03-09 15:51
2003.03.27
Дата


14-88241
Snake2000
2003-03-08 03:54
2003.03.27
Поздравляю с 8 марта милых девушек !!!


1-87989
Begemot
2003-03-13 17:54
2003.03.27
отделение одно цифры запятой


1-87968
arturik
2003-03-17 22:59
2003.03.27
Как найти в Delphi6 статистические функции?


14-88240
Delirium^.Tremens
2003-03-11 10:16
2003.03.27
Новые приключения DT