Frage zum "is"-Operator

[DeddyH]

Und wenn man wie im obigen Code ein Objekt, dass kein TWinControl ist, einfach hart nach TWinControl castet, ist der Erfolg recht überschaubar.

[Sir Rufo]

Zitat von DeddyH:

Und wenn man wie im obigen Code ein Objekt, dass kein TWinControl ist, einfach hart nach TWinControl castet, ist der Erfolg recht überschaubar.

Die Frage ist eigentlich, wie kommt in ActiveControl etwas rein, was nicht von TWinControl abgeleitet ist?

[DeddyH]

Keine Ahnung, ich hätte es ja mal versucht, habe aber just in diesem Moment Feierabend

[himitsu]

Wenn du direkt auf einen Typ prüfen willst, dann mußt du den Typ auch direkt "vergleichen".

z.B.:

Delphi-Quellcode:

if obj.ClassType = TIrgendwas then

if obj.ClassName = 'TIrgendwas' then

if obj.ClassNameIs('TIrgendwas') then

Im Gegensatz zum IS muß man hier aber auf Assigned selber prüfen, auch wenn Emba das im ClassNameIf eigentlich hätte mit aufnehmen können.

Zitat:

if Assigned(obj) and (obj is TIrgendwas) then

Das IS prüft auch auf Assigned.

TRUE = wenn ein Objekt drin ist und wenn es dem Typ entspricht, oder davon abgeleitet wurde.

Das AS läßt aber ein NIL durch, denn NIL könnte man auch als den Typ ansehen, nur daß keine Instanz davon vorhanden ist.
AS knallt also nur, wenn ein "falscher" Typ drin ist.

[QStorm]

Hallo nochmal.

Ich habe noch ein wenig debugged. Folgendes ist herausgekommen:

Nicht "ActiveControl" produziert das Problem. Hier der stark vereinfachte Code:

Code:

var
  ActiveCtrl : TWinControl;
begin
  ActiveCtrl := Self.ActiveControl;
  ShowMessage(GetClassInheritancePathFrom(ActiveCtrl)); // 1
  // UI wird gefüllt oder geleert und dann neu gefüllt
  ShowMessage(GetClassInheritancePathFrom(ActiveCtrl)); // 2
end;

Der Pointer wird durch das Neufüllen der UI/Grid (wahrscheinlich im Grid) geändert. Hier die Ergebnisse von "GetClassInheritancePathFrom"
// 1: TObject->TPersistent->TComponent->TControl->TWinControl->TCustomEdit->TcxCustomInnerTextEdit
// 2: TObject->TPersistent->TComponent->TcxComponent->TcxControlChildComponent->TcxCustomGridView->TcxCustomGridTableView->TcxGridTableView

Hinweis: ActiveControl ist zum zeitpunkt "// 2" = NIL.

Das Problem ist, dass "TcxGridTableView" nicht von "TWinControl" erbt.

[QStorm]

Zitat von himitsu:

Wenn du direkt auf einen Typ prüfen willst, dann mußt du den Typ auch direkt "vergleichen".

z.B.:

Delphi-Quellcode:

if obj.ClassType = TIrgendwas then

if obj.ClassName = 'TIrgendwas' then

if obj.ClassNameIs('TIrgendwas') then

Das Funktioniert aber nur bei einer flachen Vererbungshierarchie:
Beispiel: TObject -> TMyObject -> TMySubObject

Code:

var
 obj1 : TMyObject;
 obj2 : TMySubObject;
begin
  obj1 := (TMyObject.Create);
  obj2 := (TMySubObject.Create);

  if (obj2.ClassName = 'TMyObject') then; // ist immer False
end;

Vielleicht habe ich mich unglücklich ausgedrückt. Ich möchte wissen ob das Objekt, auf das ein Pointer zeigt, von einem Typ ist oder von diesen erbt. In zum Beispiel Java gibt es instanceof. Das Gegenstück dazu brauche ich in Delphi.

[Sir Rufo]

TObject.InheritsFrom

[Furtbichler]

TcxGridTableView ist kein Control, das zugehörige Control is TcxGrid.

[JamesTKirk]

Zitat von QStorm:

Vielleicht habe ich mich unglücklich ausgedrückt. Ich möchte wissen ob das Objekt, auf das ein Pointer zeigt, von einem Typ ist oder von diesen erbt. In zum Beispiel Java gibt es instanceof. Das Gegenstück dazu brauche ich in Delphi.

Das Gegenstück zu instanceof ist nun mal is und macht genau das was du beschreibst. Vielleicht hast du ganz falsche Erwartungen davon, was da passiert?

Ich hab mal dein Beispiel von Anfang (ein bisschen abgeändert) getestet:

Delphi-Quellcode:

program tistest;

{$mode objfpc}

uses
  Classes;

var
  stringList : TStringList;
  obj    : TObject;
  control : TInterfacedObject;
begin
  stringList := (TStringList.Create);
  obj := TObject(stringList);
  control := TInterfacedObject(obj); // ich hatte keine Lust Controls einzubinden...
  Writeln(control.ClassType.ClassName);

  Writeln(control is TInterfacedObject); // dürfte unter Delphi glaub ich nicht funktionieren, da das kein Writeln(Boolean) kennt :P
end.

Ausgabe:

Code:

TStringList
FALSE

Gruß,
Sven

[QStorm]

Zitat von JamesTKirk:

Das Gegenstück zu instanceof ist nun mal is und macht genau das was du beschreibst. Vielleicht hast du ganz falsche Erwartungen davon, was da passiert?

Eben nicht, denn "instanceof" prüft ob das referenzierte Objekt zuweisungskompatibel zu einer Klasse ist. "is" hingegen prüft lediglich, ob die Referenz/Pointer zuweisungskompatibel ist (wie man in meinem Beispiel schön sieht). "TObject.InheritsFrom" macht genau das was ich brauche.

Zitat von JamesTKirk:

Ich hab mal dein Beispiel von Anfang (ein bisschen abgeändert) getestet:

Ich habe dein abgeändertes Beispiel ausgeführt. Die Ausgabe ist jedoch anders, als du schreibst:

Code:

TStringList
TRUE