Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.06.26;
Скачать: CL | DM;

Вниз

как корректно заэнаблить контролы   Найти похожие ветки 

 
cross   (2011-03-15 12:15) [0]


procedure enable_ctrls(AVal: Boolean; Ctrls: array of const);
var
 I: Integer;
begin
 for I := Low(Ctrls) to High(Ctrls) do
    TControl(Ctrls[I].VObject).Enabled := AVal;

end;

procedure enable_ctrls(AVal: Boolean; Ctrls: array of TControl);
var
 I: Integer;
begin
 for I := Low(Ctrls) to High(Ctrls) do
    Ctrls[I].Enabled := AVal;

end;


Какой из вариантов правильнее?


 
И. Павел ©   (2011-03-15 12:21) [1]

Лучше , чтобы функция не могла принять данные неожиданного типа. Так что я бы сделал 2.
А если 1 то так:
(Ctrls[I].VObject as TControl).Enabled := AVal;


 
имя   (2011-03-17 02:49) [2]

Удалено модератором



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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
2-1300644733
inslave
2011-03-20 21:12
2011.06.26
многопоточность


2-1300456223
istok
2011-03-18 16:50
2011.06.26
UAC, registry virtualization..


15-1299302188
И. Павел
2011-03-05 08:16
2011.06.26
С 8 марта!


15-1299314549
Galera
2011-03-05 11:42
2011.06.26
СБИС - поиск сервера ПГД - и все это через прокси


2-1300304764
istok
2011-03-16 22:46
2011.06.26
AV в ntdll.dll...?