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:

zusammenfalten · markieren

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

zusammenfalten · markieren

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 ?

zusammenfalten · markieren

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

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

Funktioniert sowas:

zusammenfalten · markieren

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;

Danke, funktioniert

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.

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