Inkompatible Typen: 'TPanel' und 'TComponent'

[Andreas L.]

Ich hab mal wieder ein Problem...

Bei folgenden Code

Delphi-Quellcode:

ExPanel:=(Parent as TPanel).FindComponent(ExPanels.Strings[i]);

kommt beim kompilieren die Meldung

Zitat:

Inkompatible Typen: 'TPanel' und 'TComponent'

Hier die komplette Funktion:

Delphi-Quellcode:

function RemoveAllExPanels(Parent: TPanel):Boolean;
var
 ExPanel: TPanel;
 i: integer;
begin
 //Überprüfen ob ExPanels vorhanden sind
 if ExPanels.Count>-1 then
  begin
   //ggf. vorhandene Markierungen aufheben
   if (MarkedExPanel is TPanel) then
    begin
     MarkExPanel(MarkedExPanel);
     FreeAndNil(MarkedExPanel);
    end;
    //jedes ExPanel nacheinander löschen
    for i:=0 to ExPanels.Count-1 do
     begin
     ExPanel:=(Parent as TPanel).FindComponent(ExPanels.Strings[i]);
     FreeAndNil(ExPanel);
     end;
   ExPanels.Clear;
   Result:=true;
  end
 else
  begin
   Result:=false;
  end;
end;

Ich verstehe einfach nicht was an dieser Zeile falsch sein soll... Könnt ihr mir helfen?

[MStoll]

Also, wie ich das sehe, ist bei dir Parent im Prozedurkopf bereits als TPanel deklariert, also ist das "as" total überflüssig.

Ich würde schreiben:

Delphi-Quellcode:

ExPanel := Parent.FindComponent(ExPanels.Strings[i]);

Gruß
Michael

[ste_ett]

FindComponent liefert TComponent.
Das musst du umcasten, oder Expanel als TComponent deklarieren. :)

[Andreas L.]

Zitat:

Zitat von ste_ett

FindComponent liefert TComponent.
Das musst du umcasten, oder Expanel als TComponent deklarieren. :)

Funktioniert! Vielen Dank :thumb:

[MStoll]

Ok, sorry @onlinehome, ich hab das Problem falsch interpretiert und daher nicht genauer geguckt. ;)