Форум: "Начинающим";
Текущий архив: 2011.06.26;
Скачать: [xml.tar.bz2];
Внизкак корректно заэнаблить контролы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c