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