Текущий архив: 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.01 c