Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 49

for counter := 0 to Form.Componentcount do begin
 if (components[counter] is TLED) then begin
  LED[Component[counter].tag]:= TLED(components[counter]);
 end
end;

Если вам нужен двухмерный массив, то для формирования индекса понадобится другая хитрость, например, хранение в свойстве Hint информации о времени создания компонентов.

Дублирование компонентов и их потомков во время выполнения приложения

Приведенный ниже код содержит функцию DuplicateComponents, позволяющую проводить клонирование любых компонентов и их потомков во время выполнения приложения. Действия ее напоминают операцию копирования/вставки (copy/paste) во время разработки приложения. Новые компоненты при создании получают тех же родителей, владельцев (в случае применения контейнеров) и имена (естественно, несколько отличающихся), что и оригиналы. В данной функции есть вероятность багов, но я пока их не обнаружил. Ошибки и недочеты могут возникнуть из-за редко применяемых специфических методов, которые, вместе с тем, могут помочь программистам, столкнувшимися с аналогичными проблемами.

Данная функция может оказаться весьма полезной в случае наличия нескольких одинаковых областей на форме с необходимостью синхронизации изменений в течение некоторого промежутка времени. Процедура создания дубликата проста до безобразия: разместите на TPanel или на другом родительском компоненте необходимые элементы управления и сделайте: "newpanel := DuplicateComponents(designedpanel)".

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, TypInfo, Debug;
type TUniqueReader = Class(TReader)
 LastRead: TComponent;
 procedure ComponentRead(Component: TComponent);
 procedure SetNameUnique(Reader: TReader; Component: TComponent; var Name: string);
end;
implementation
procedure TUniqueReader.ComponentRead(Component: TComponent);
begin
 LastRead:= Component;
end;
procedure TUniqueReader.SetNameUnique(  // Задаем уникальное имя считываемому компоненту, например, "Panel2", если "Panel1" уже существует
 Reader: TReader; Component: TComponent;              // Считываемый компонент
 var Name: string                    // Имя компонента для дальнейшей модификации
);
var
 i: Integer;
 tempname: string;
begin
 i:= 0;
 tempname:= Name;
 while Component.Owner.FindComponent(Name) <> nil do begin
  Inc(i);
  Name:= Format('%s%d', [tempname, i]);
 end;
end;
function DuplicateComponents(
 AComponent: TComponent  // исходный компонент
): TComponent;              // возвращаемся к созданию нового компонента
 procedure RegisterComponentClasses(AComponent: TComponent);
 var i : integer;
 begin
  RegisterClass(TPersistentClass(AComponent.ClassType));
  if AComponent is TWinControl then
   if TWinControl(AComponent).ControlCount > 0 then
    for i:= 0 to (TWinControl(AComponent).ControlCount-1) do RegisterComponentClasses(TWinControl(AComponent).Controls[i]);
 end;
var
 Stream: TMemoryStream;
 UniqueReader: TUniqueReader;
 Writer: TWriter;