Код такой
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
var
Comp: TComponent;
Count: LongInt;
begin
For Count:= 0 to Pred((Owner as TForm).ControlCount) do
begin
Comp:= (Owner as TForm).Components [Count];
If Comp is TEdit then (Comp as TEdit).Clear;
If Comp is TComboBox then (Comp as TComboBox).Clear;
if Comp is TCheckBox then (Comp as TCheckBox).Checked:= False;
{ и так далее ...}
end;
end;
Фрейм разместил на форме, накидал компонентов, запускаю, нажимаю кнопку "Очистить"...
Delphi выдает ошибку, мол неверный индекс компонента. Стал смотреть - оказывает, что ControlCount = 15, а
на 12 компоненте ошибка - List Index Out Of bounds. Кто-нибудь встеречался с подобной проблемой?
