| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как корректно заэнаблить контролы

cross ©   (2011-03-15 12:15:00) 


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-17 02:49:00) [1]

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

---

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

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

---

Наверх