Как проверить принадлежность к классу компонента

[The_Immortal]

В качестве входных данных поступает строка 'TEdit' (или любой другой класс компонентов). Надо проверить имеется ли на форме компонент, относящийся к такому классу компонента и если да, то взять сам компонент. Т.е. в общем, мне надо на вход подать имени классво компоентов, а на выходе получить имена всех контролов, относящихся к заданным классам.

Перепробовал разное:

var
  i: Integer;
  ComponentClass, ComponentClass2: TClass;
begin
  ComponentClass := GetClass('StdCtrls.TEdit'); // nil
  ComponentClass2 := GetClass('TEdit'); // nil

  for i := 0 to self.ComponentCount - 1 do

  begin
//    if self.Components[i] is GetClass('TEdit') // BAD
//    if self.Components[i] is ComponentClass // BAD
//    if self.Components[i] is ComponentClass2 // BAD
//    if self.Components[i].ClassType = FindClass('TEdit') // BAD
    if self.Components[i] is TEdit then // OK
    ...
  end;
end;

Срабатывает явное указание TClass, но на входе-то строка...

Подскажите, пожалуйста, как побороть.

Спасибо!

[jillitil]

    TForm1 = CLASS(TForm)
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Edit1: TEdit;
        ASDASD: TEdit;
        TRRRRR: TEdit;
        PROCEDURE BitBtn1Click(Sender: TObject);
    END;
..
..
PROCEDURE TForm1.BitBtn1Click(Sender: TObject);
VAR
    i: Integer;
    S: STRING;
BEGIN
    FOR i := 0 TO ComponentCount - 1 DO
        IF Components[i] IS TEdit THEN
            S := S + #13#10 + (Components[i].Name);
    ShowMessage(S);
END;

[The_Immortal]

Вероятно, я не так объяснил... Попробую еще разок.
У меня на входе не TEdit (тип TClass), а строка 'TEdit' (тип string). И 'TEdit' (тип string) надо как-то преобразовать к TEdit (тип TClass). Ну или как-то по-другому подойти к задаче - правда, не знаю как...
Повторюсь, на вход может подаваться 'TEdit', 'TButton' или любой другой класс компонента в виде строки.

[jillitil]

    TForm1 = CLASS(TForm)
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Edit1: TEdit;
        ASDASD: TEdit;
        TRRRRR: TEdit;
        PROCEDURE BitBtn1Click(Sender: TObject);
        PROCEDURE FormCreate(Sender: TObject);
    END;

PROCEDURE TForm1.BitBtn1Click(Sender: TObject);
VAR
    i: Integer;
    S: STRING;
    P: TPersistentClass;
BEGIN
    P := GetClass(Edit1.Text);
    FOR i := 0 TO ComponentCount - 1 DO
        IF Components[i] IS P THEN
            S := S + #13#10 + (Components[i].Name);
    ShowMessage(S);
END;

PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
    RegisterClasses([TBitBtn]);
END;

[The_Immortal]

Это получается надо каждый класс регистрировать? А если этих классов уйма и их вариации заранее неизвестны?..

[jillitil]

Make sure the classes are registered so that GetClass will work
Usually, this goes in the initialization section where it is only executed once

В руководстве скользко намекают что да.

[The_Immortal]

В общем, получилось через RTTI вот так:

function StringToClass(AClassName: string): TClass;
var
  LCtx: TRttiContext;
  LTp: TRttiType;
begin
  Result := nil;

  try
    LTp := LCtx.FindType(AClassName);
  except
    Exit;
  end;

  if (LTp <> nil) and (LTp is TRttiInstanceType) then
    Result := TRttiInstanceType(LTp).MetaclassType;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  i: Integer;
  ComponentClass: TPersistentClass;
  S: string;
begin
    for i := 0 to Self.ComponentCount -1 do
    begin
      if self.Components[i] is StringToClass('Vcl.StdCtrls.TEdit') then
        ShowMessage(self.Components[i].Name);
    end
end;

Но тут требуется указывать полное пространство имен, а у меня только сам класс

Вот тут (где, собственно, само решение) советуют:

The fix is to attach the unit where you store these classes in the loop or in the list.

Не врублюсь как это сделать...

И почему народу понравился первый ответ - я также не понял. Как-то можно использовать StringList для моей задачи?

[BDA]

А так?

procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
    S: string;
begin
    for i := 0 to ComponentCount - 1 do
        if Components[i].ClassName = 'TButton' then
            S := S + sLineBreak + Components[i].Name;
    ShowMessage(S);
end;

Сообщение от The_Immortal

Как-то можно использовать StringList для моей задачи?

Ну они предлагают составить список вида строковое имя класса и сам класс, но раз вариации неизвестны, то вам не подойдет.

[The_Immortal]

Как все просто оказалось-то!)

А я уже в дебри RTTI ушел:

function GetClass(const AClassName: string): TClass;
var
  ctx: TRttiContext;
  ThisType: TRttiType;
  ThisList: TArray<TRttiType>;
begin
  Result := nil;
  ctx := TRttiContext.Create;
  try
    ThisList := ctx.GetTypes;
    for ThisType in ThisList do
    begin
      if ThisType.IsInstance and (EndsText(AClassName, ThisType.Name)) then
      begin
        Result := ThisType.AsInstance.MetaClassType;
        BREAK;
      end;
    end;
  finally
    ctx.Free;
  end;
end;

ctx.GetTypes;

ооочень долго отрабатывает - туда дохрениллион типов попадает и по ним идет поиск

Спасибо большое!