Delphi-Version: 5
Frage zum "is"-Operator
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:
Ich habe im Forum und restlichen Internet leider kein passendes Thema gefunden.
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; Falls es ein doch bereits eines gibt, verzeiht mir den Doppel-Post. Vielen Dank im Voraus :) |
AW: Frage zum "is"-Operator
Delphi-Quellcode:
var
LWinControl : TWinControl; if Assigned( Self.ActiveControl ) and ( Self.ActiveControl is TWinControl ) then begin LWinControl := Self.ActiveControl as TWinControl; ... end |
AW: Frage zum "is"-Operator
Zitat:
|
AW: Frage zum "is"-Operator
Zeig mal Deinen Code, irgendwas erscheint mir da komisch.
|
AW: Frage zum "is"-Operator
Zeig uns doch mal, was zu dem Zeitpunkt dieses hier zurückgibt
Delphi-Quellcode:
.
ShowMessage( GetClassInheritancePathFrom( Self.ActiveControl ) );
Die Funktion findest du hier http://www.delphipraxis.net/1243656-post12.html |
AW: Frage zum "is"-Operator
Und wenn man wie im obigen Code ein Objekt, dass kein TWinControl ist, einfach hart nach TWinControl castet, ist der Erfolg recht überschaubar.
|
AW: Frage zum "is"-Operator
Anscheinend liefert der 'is' immer true, wenn die Referenz den passenden Typ hat, das lässt sich nachvollziehen.
Wenn Du aber den Code in dieser Form abänderst:
Delphi-Quellcode:
Wird zuerst eine Box mit "false" und dann eine mit "true" gezeigt, so wie man es auch erwarten würde.
procedure TForm1.Button1Click(Sender: TObject);
var stringList : TStringList; obj : TObject; control : TWinControl; begin stringList := (TStringList.Create); obj := TObject(stringList); if (obj is TWinControl) then ShowMessage('True') else ShowMessage('False'); obj := Button1; if (obj is TWinControl) then ShowMessage('True') else ShowMessage('False'); end; |
AW: Frage zum "is"-Operator
Zitat:
Delphi-Quellcode:
etwas rein, was nicht von
ActiveControl
Delphi-Quellcode:
abgeleitet ist?
TWinControl
|
AW: Frage zum "is"-Operator
Keine Ahnung, ich hätte es ja mal versucht, habe aber just in diesem Moment Feierabend :mrgreen:
|
AW: Frage zum "is"-Operator
Wenn du direkt auf einen Typ prüfen willst, dann mußt du den Typ auch direkt "vergleichen".
z.B.:
Delphi-Quellcode:
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.
if obj.ClassType = TIrgendwas then
if obj.ClassName = 'TIrgendwas' then if obj.ClassNameIs('TIrgendwas') then Zitat:
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. |
AW: Frage zum "is"-Operator
Hallo nochmal.
Ich habe noch ein wenig debugged. Folgendes ist herausgekommen: Nicht "ActiveControl" produziert das Problem. Hier der stark vereinfachte Code:
Code:
Der Pointer wird durch das Neufüllen der UI/Grid (wahrscheinlich im Grid) geändert. Hier die Ergebnisse von "GetClassInheritancePathFrom"
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; // 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. |
AW: Frage zum "is"-Operator
Zitat:
Beispiel: TObject -> TMyObject -> TMySubObject
Code:
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.
var
obj1 : TMyObject; obj2 : TMySubObject; begin obj1 := (TMyObject.Create); obj2 := (TMySubObject.Create); if (obj2.ClassName = 'TMyObject') then; // ist immer False end; |
AW: Frage zum "is"-Operator
|
AW: Frage zum "is"-Operator
TcxGridTableView ist kein Control, das zugehörige Control is TcxGrid.
|
AW: Frage zum "is"-Operator
Zitat:
|
AW: Frage zum "is"-Operator
Zitat:
Du füllst in einen Eimer Wein, dann schaust du eine Weile nicht hin und ein Anderer säuft den Wein aus und wieder ein Anderer füllt Wasser rein, weil der Eimer ja leer war (ist also Platz gewesen). Was findest du jetzt in dem Eimer? Aha. Du hast doch schon selber festgestellt, dass du dir nur eine Referenz (Pointer) auf das Objekt hast und damit kann man das Objekt nicht festhalten, wenn es freigegeben wird. Ein anderes Beispiel ist eine Visitenkarte von Peter Lustig. Der wohnt nicht in oder auf der Visitenkarte, sondern das ist nur eine Referenz auf seinen Wohnort. Zieht der Peter jetzt dort aus und dann ein Anderer wieder ein, dadurch wird dieser Andere nicht automatisch zu Peter Lustig. |
AW: Frage zum "is"-Operator
Zitat:
Zum zweiten Beispiel: Wenn ich eine Referenz auf einen Wohnort von Peter Lustig habe, dann zieht da nach Peter Lustig nicht einfach ein Kaugummi ein, sondern eine andere Person (gleicher Typ). Ich weiß aber was du damit sagen willst. Dieses Laufzeitverhalten ist dennoch unglücklich und extrem gefährlich. So kann man sich nie darauf verlassen, dass das worauf man zugreift auch das ist was man ursprünglich annahm (insbesondere wenn man mit externen Bibliotheken arbeitet). Leider ist das in vielen Bereichen von Delphi so (siehe Reference Counting von Interfaces, das wohl nur noch Delphi so betreibt). Naja, da kann man wohl nichts machen. Vielen Dank für eure Hilfe. :) |
AW: Frage zum "is"-Operator
Zitat:
oder das Haus wird abgerissen und man fällt in ein Loch (Speicher komplett freigegeben, oder irgendwas Anderes ist dort ... z.B. ein Stück eines Strings oder ein Integer) oder Petra Miesepeter zieht ein (Frau und nicht lustig, also nicht ger gleiche Typ ... original war dort ein Mann) |
AW: Frage zum "is"-Operator
@QStorm
Wenn man weiß, was man macht, bzw. was man zulässt, dann ist das kein Problem. Du hast hier mit keinem Wort verraten, was zwischen dem 1. und 2. Zugriff passiert.
Delphi-Quellcode:
ist z.B. wie den Blick vom Eimer wenden und dann kann dort alles passieren (z.B. die Instanz zur Referenz wird aus dem Speicher geworfen).
Application.ProcessMessages
Und das ist nur eine der vielen 1000 Möglichkeiten. Wenn der Bauer nicht schwimmen kann, dann ist natürlich die Badehose Schuld |
AW: Frage zum "is"-Operator
Zitat:
Delphi-Quellcode:
und macht genau das was du beschreibst. :? Vielleicht hast du ganz falsche Erwartungen davon, was da passiert?
is
Ich hab mal dein Beispiel von Anfang (ein bisschen abgeändert) getestet:
Delphi-Quellcode:
Ausgabe:
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.
Code:
Gruß,
TStringList
FALSE Sven |
AW: Frage zum "is"-Operator
Zitat:
Zitat:
Code:
TStringList
TRUE |
AW: Frage zum "is"-Operator
Zitat:
In dem Beispiel mag das vielleicht noch gehen aber wie du schreibst gibt es 1000 Möglichkeiten, die du bestimmt auch nicht immer im Kopf hast. ;) OK vielen Dank nochmal für die Hilfe. P.S.: Der Bauer kann schwimmen, ist nur nicht an eine Badehose voller Blei gewöhnt. ;) |
AW: Frage zum "is"-Operator
Was glaubt ihr wohl, was rauskommt, wenn ich über einen Besenstiel eine Maske von Justin Bieber stülpe? Eben. Vollkommener Trash. In Delphi:
Delphi-Quellcode:
Das ist der sog. 'harte Karsten' (oder engl: hard casting), und der funktioniert immer, daher ist das auch ziemlich dreist, so etwas zu tun und man muss schon wissen, was man macht. Praktisch ist der harte Karsten eigentlich nur, wenn man Speicherbereiche interpretieren will.
if TJustinBieber(BesenStiel) is TJustinBieber then
writeln('Wer hätte das gedacht'); Bei Objekten verwendet man den 'as' Operator, der fragt nämlich freundlich nach (bzw. prüft) ob der Besenstiel überhaupt Willens und in der Lage ist, den Justin Bieber zu machen, was er natürlich nicht ist (einerseits ist der Besenstiel viel zu intelligent und zweitens liegt es nicht in seiner Natur, zu singen und sich daneben zu benehmen). Aber nehmen wir mal, sagen wir, den Wendler und fragen ihn aber:
Delphi-Quellcode:
Die Variante
if (DerWendler Is TJustinBieber) then // hier kann der harte Karsten wieder ran
TJustinBieber(DerWendler).SingUnsEinen();
Delphi-Quellcode:
würde mit einem invaliden Karsten antworten (EInvalidCastException), falls ER (der Wendler) uns wider Erwarten den Bieber Justin nicht machen kann, was sehr unwahrscheinlich ist, denn vom Niveau her sollte das schon passen.
(DerWendler as TJustinBieber).SingUnsEinen()
Ach: Und zum eigentlichen Problem: Das Zwischenspeichern von Eigenschaften einer anderen Klasse, während diese verändert wird, ist schlicht und ergreifend falsch. Das 'ActiveControl' der Form gibt zu jedem Zeitpunkt korrekt wieder, welches Control den Fokus hat und daher sollte man es auch so verwenden. Alles(!) andere ist schlicht und ergreifend fahrlässig. PS: Der Bauer sollte sich erstmal an die Strandregel halten und überhaupt eine Badehose tragen. ;-) |
AW: Frage zum "is"-Operator
@Furtbichler: Danke für die (wenn auch etwas zu sehr ausgeschmückte) Erklärung zu "as".
P.S.: Der Bauer ist dabei sich an die (an anderen Stränden weitaus besser verfassten) Strandregeln zu halten. Das ist jedoch ein Lernprozess und nicht von heute auf morgen geschehen. |
AW: Frage zum "is"-Operator
@Furtbichler: Großartig. Ganz großes Kino :) Auch wenn DerWendler vielleicht ein schlechtes Beispiel ist... Der macht doch alles um nicht ganz von der Bildoberfläche zu verschwinden, also wird es niemals einen invaliden Karsten geben ;)
Eine sehr amüsante und gute (!) Erklärung vom Unterschied zwischen as und dem harten Karsten. :thumb: |
AW: Frage zum "is"-Operator
Zitat:
|
AW: Frage zum "is"-Operator
Um mal wieder zum Ursprungsproblem zu kommen.
Ich kann das bei mir mit der DevExpress 13.1.12 nicht nachstellen, dort zeigt bei einem leeren Grid ActiveControl auf ein TcxGridSite Control (was von TWinControl abgeleitet ist). Ich vermute also einen Bug in DevExpress, denn etwas, was nicht von TWinControl erbt in ActiveControl zu packen dürfte unzulässig sein. P.S. Nachdem ich diesen 10 Jahre(!) alten KB Artikel gefunden habe, denke ich, das wird kein Bug in DevExpress sein. |
AW: Frage zum "is"-Operator
Zitat:
Danke für den Link. Sehr interessant. Das Problem ist ein anderes: Ich habe mir eine Referenz auf das aktive Control geholt (via TForm.ActiveControl). Danach wurde die UI geleert. Das aktive Control wurde dabei abgeräumt, was dazu führt, dass die Referenz auf Datenmüll im Speicher zeigt. |
AW: Frage zum "is"-Operator
So etwas nennt sich dangling pointer oder wilder Zeiger. Den erkennt man auch mit einer Assigned-Abfrage nicht, da er ja weiterhin zugewiesen ist, auch wenn das Zielobjekt nicht mehr existiert. Aus diesem Grund muss man mit mehreren Referenzen auf dasselbe Objekt immer sehr vorsichtig sein oder sie wenn möglich gleich ganz vermeiden.
|
AW: Frage zum "is"-Operator
Zitat:
Delphi-Quellcode:
in FPC an:
is
Delphi-Quellcode:
function fpc_do_is(aclass : tclass;aobject : tobject) : boolean;[public,alias: 'FPC_DO_IS']; compilerproc;
begin fpc_do_is:=assigned(aobject) and assigned(aclass) and aobject.inheritsfrom(aclass); end; Zitat:
Delphi-Quellcode:
vereinfacht zu
intfobjvar is TInterfacedObject
Delphi-Quellcode:
, weil er davon ausgeht, dass in einer Variable vom Typ
Assigned(intfobjvar)
Delphi-Quellcode:
nur eine Instanz vom Typ
TInterfacedObject
Delphi-Quellcode:
oder eines seiner Nachfahren sein kann...
TInterfacedObject
Kannst du dir mal bitte noch das Ergebnis von
Delphi-Quellcode:
ausgeben lassen? Da sollte dann, falls meine Vermutung zutrifft,
obj is TInterfacedObject
Delphi-Quellcode:
bei rauskommen.
False
Gruß, Sven |
AW: Frage zum "is"-Operator
Zitat:
|
AW: Frage zum "is"-Operator
Zitat:
|
AW: Frage zum "is"-Operator
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz