Функция поиска количества компонентов заданного класса

Категория: Delphi/Pascal
2011-08-28 22:32:26

Написать функцию поиска количества компонентов заданного класса (входящий параметр TClass) на форме. Возвращает число компонентов типа Integer.

code: #delphi
  1. function TForm1.ComponentCnt(c: TClass): integer;
  2. var
  3.   i: integer;
  4. begin
  5.   Result := 0;
  6.   for i := 0 to ComponentCount-1 do
  7.   begin
  8.     if (Components[i] is c)then inc(Result);
  9.   end;
  10.   Caption := inttostr(result);
  11. end;
Поделиться:

Похожие статьи:

теги: ооп, поиск, компоненты, класс