Главная страница
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
15-1299747769
vuk
2011-03-10 12:02
2011.06.26
Бакшевская Масляница


3-1261134567
pavel_guzhanov
2009-12-18 14:09
2011.06.26
Удаление записей в access


15-1299748624
laby
2011-03-10 12:17
2011.06.26
При вызове sp часики убрать


15-1299862791
Artemgood
2011-03-11 19:59
2011.06.26
Трбуется создать автоматизированный информационный стенд колледжа


15-1300138192
Юрий
2011-03-15 00:29
2011.06.26
С днем рождения ! 15 марта 2011 вторник