Здравствуйте, Ninelka, Вы писали:
N>Как с формы удалить все объекты заданного класса.
for(int i=Form->ComponentCount-1; i>=0; i--)
{
if (dynamic_cast<TButton*>(Form->Components[i]))
{
delete Form->Components[i];
}
}
... << RSDN@Home 1.0 beta 3 >>
Любая проблема дизайна может быть решена введением дополнительного абстрактного слоя, за исключением проблемы слишком большого количества дополнительных абстрактных слоев
N>Как с формы удалить все объекты заданного класса.
var
i: integer;
begin
for i:= Form.ComponentCount-1 downto 1 do
if Form.Components[i] is TButton
then Form.Components[i].Free;
... << RSDN@Home 1.0 beta 3 >>
