Suche nach einem Formtyp in einer ObjectListe von Forms

[bernhard_LA]

unsere App erzeugt diverse Forms zur Laufzeit, jedes Form wird in einer Liste abgelegt um später wieder darauf zugreifen zu können

funktionalercode geht wie z.B. folgt:

Delphi-Quellcode:

  
  AFormList: TObjectList;
  for i := 0 to AFormList.Count - 1 do
  begin
    ///
    /// check if correct Form type
    ///
    if (AFormList.Items[i] is TProjectIForm) then
        begin 
        ...
        MySelectedForm := (AFormList.Items[i] as TProjectIForm);
        .... 
        end;

ich benötige nun eine Funktion welche mir true/false zurück gibt je nachdem of ein
bestimmter Formtype in der Liste vorhanden ist

Delphi-Quellcode:

function TPForm.FormtypeExisits(anyForm: TObject): boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to AFormList.Count - 1 do
  begin
    if (AFormList.Items[i] is anyForm) then
      Result := True;
  end;

end;

Problem
wie Übergebe ich einen Typen als Parameter an die Funktion FormtypeExisits ?

[Klaus01]

Delphi-Quellcode:

type
  TFormClass = class of TForm;


function TForm1.formExists(form: TFormClass): Boolean;
begin
 for var i := 0 to fFormList.Count - 1 do
 begin
   result := false;
   if (AFormList[i] is form) then
   begin
     result := true;
     break;
   end;
 end;
end;

vielleicht so?

Grüße
Klaus

[hoika]

Hallo,
da deine Forms ja idR von TForm abgeleitet sind,
wäre ClassName eine Möglichkeit der Unterscheidung.

[Delphi.Narium]

Funktioniert sowas:

Delphi-Quellcode:

function TPForm.FormtypeExisits(anyForm: TObject): boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to AFormList.Count - 1 do
  begin
    if (AFormList.Items[i].ClassType = anyForm.ClassType) then
      Result := True;
  end;
end;

[bernhard_LA]

Danke, funktioniert

[DeddyH]

Spontan würde ich auch versuchen, eine TFormClass zu übergeben und einfach mit dem is-Operator dagegen zu prüfen. In der Prüf-Unit müssen dann aber auch alle in Frage kommenden Klassen bekannt sein, d.h. die Uses-Klausel kann u.U. recht lang werden.

[TiGü]

Spontan hätte ich hier ein TDictionary/TObjectDictionary<TFormClass, TForm> vorgeschlagen.