Klassen-Typ als Parameter übergeben

**Ares**

Hallo!

Wie kann ich einen Typ als Parameterübergeben? Folgende funktioniert leider nicht:

Delphi-Quellcode:

			    function GetControl(ControlName: String; ControlType: ClassType): TControl;

    var control: TControl;

    begin

      control := MyForm.FindChildControl(ControlName);

      if ((control<>nil) and (control is ControlType)) then

        result := control;

      else

        result := nil;

    end;

Die Funktion soll also überprüfen, ob es auf dem Form MyForm eine Komponente mit dem Namen "ControlType" und vom Type "ControlType" gibt und diese ggf. zurückliefern. Bei diesem Beispiel gibt der Compiler jedoch "'ClassType' ist kein gültiger Typbezeichner" aus.

Wie kann ich also einen Type als Parameter übergeben?

Besten Dank
Ares

**Dezipaitor**

Versuch mal statt ClassType "TClass" zu verwenden.

**sirius**

TObject

**Ares**

Danke, das funktioniert prima!

**Dezipaitor**

welches?

**jethark**

IMHO ist Dezipaitors Ansatz richtig.
Wobei hier natürlich ein TControlClass als Referenztyp genügen sollte,
denn schließlich liefert FindChildControl mindestens ein von TControl
abgeleitetes Objekt zurück.

Klassen-Typ als Parameter übergeben

Klassen-Typ als Parameter übergeben

Re: Klassen-Typ als Parameter übergeben

Re: Klassen-Typ als Parameter übergeben

Re: Klassen-Typ als Parameter übergeben

Re: Klassen-Typ als Parameter übergeben

Re: Klassen-Typ als Parameter übergeben

Forumregeln

Dezipaitor Registriert seit: 14. Apr 2003 Ort: Stuttgart 1.701 Beiträge Delphi 7 Professional	#2 Re: Klassen-Typ als Parameter übergeben 6. Nov 2007, 10:36 Versuch mal statt ClassType "TClass" zu verwenden. Christian Windows, Tokens, Access Control List, Dateisicherheit, Desktop, Vista Elevation? Goto: JEDI API LIB & Windows Security Code Library (JWSCL)
	Zitat

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#3 Re: Klassen-Typ als Parameter übergeben 6. Nov 2007, 10:38 TObject Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

Ares Registriert seit: 5. Dez 2002 269 Beiträge	#4 Re: Klassen-Typ als Parameter übergeben 6. Nov 2007, 10:46 Danke, das funktioniert prima!
	Zitat

Dezipaitor Registriert seit: 14. Apr 2003 Ort: Stuttgart 1.701 Beiträge Delphi 7 Professional	#5 Re: Klassen-Typ als Parameter übergeben 6. Nov 2007, 12:46 welches? Christian Windows, Tokens, Access Control List, Dateisicherheit, Desktop, Vista Elevation? Goto: JEDI API LIB & Windows Security Code Library (JWSCL)
	Zitat

jethark Registriert seit: 5. Nov 2007 Ort: Augsburg 13 Beiträge Turbo Delphi für Win32	#6 Re: Klassen-Typ als Parameter übergeben 6. Nov 2007, 19:17 IMHO ist Dezipaitors Ansatz richtig. Wobei hier natürlich ein TControlClass als Referenztyp genügen sollte, denn schließlich liefert FindChildControl mindestens ein von TControl abgeleitetes Objekt zurück. Unkraut nennt man die Pflanzen, deren Vorzüge noch nicht erkannt worden sind. - Emerson -
	Zitat