Thema: Delphi Frage zum "is"-Operator

Einzelnen Beitrag anzeigen

QStorm

Registriert seit: 28. Jun 2008
46 Beiträge
 
#1

Frage zum "is"-Operator

  Alt 23. Jan 2014, 16:36
Delphi-Version: 5
Hallo,

Ich habe eine Frage zum "is"-Operator. Soweit ich das nachvollziehen konnte prüft er, ob der Pointer von einem bestimmten Typ ist. Ich würde jedoch gerne wissen ob das Objekt, auf das der Pointer zeigt, von einem bestimmten Typ ist.

Hintergrund: Ich bekomme von TForm.ActiveControl einen Pointer auf ein Objekt, das nicht vom Typ TWinControl ist. Das führt im weiteren Verlauf zu einer Access Violation, da ich auf nicht existente Methoden zugreife.

Wie kann man herausbekommen, ob das Objekt, auf das ein Pointer zeigt, von einem bestimmten Typ ist?

Hier ein Beispiel-Code, mit dem man das ganze nachvollziehen kann:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
  stringList : TStringList;
  obj    : TObject;
  control : TWinControl;
begin
  stringList := (TStringList.Create);
  obj := TObject(stringList);
  control := TWinControl(obj);
  control.ClassType

  if (control is TWinControl)
  then ShowMessage('True')
  else ShowMessage('False');
end;
Ich habe im Forum und restlichen Internet leider kein passendes Thema gefunden.
Falls es ein doch bereits eines gibt, verzeiht mir den Doppel-Post.

Vielen Dank im Voraus
  Mit Zitat antworten Zitat