Object in Variable sichern?

[rwachtel]

Zitat:

Zitat von moelski

Aha, also funktioniert das so wie ich es gemacht habe? [...]

Ja.

[moelski]

Ok, dann bin ich erstmal glucklitsch :-D

Vielen Dank für die Antworten !! :hello:

[moelski]

Moin nochmal ...

Öhm so ganz scheint das aber noch nicht zu gehen.

Wenn ich folgendes schreibe:

Delphi-Quellcode:

LastObject := SpectraII;

Dann müsste ich doch mittels LastObject auf Funktionen von SpectraII zugreifen können oder nicht?
Weil das bräuchte ich auch ...

Das funktioniert aber so nicht, denn ich bekomme den Fehler "[Fehler] DeviceUtils.pas(1023): Undefinierter Bezeichner: 'IsLogData'"
Der Aufruf war:

Delphi-Quellcode:

LastObject.IsLogData(Data);

Wie kriege ich das denn hin das LastObject.IsLogData funktioniert?

[rwachtel]

Nein, Du kannst nur auf die Methoden und Eigenschaften der Basisklasse (hier: TObject) zugreifen.

Abhilfe schafft ein Typecasting:

Delphi-Quellcode:

TSpectraII(LastObject).IsLog(Data);

Daher der Tipp mit der Basisklasse und den virtuellen Methoden.

[moelski]

Ah ok. Das hilft mir weiter.

Vielen Dank !

[DGL-luke]

LastObject ist als TObject deklariert. Der Compiler kann also nicht wissen, dass deine eigene Klasse dahintersteckt. Du musst also entweder einen Typecast machen:

Delphi-Quellcode:

TSpectraII(LastObject).IsLog(Data); //hart
(LastObject as TSpectraII).IsLog(Data); //weich

ein weicher cast ist übrigens meist vorzuziehen, dabei wird eine überprüfung vorgenommen, ob auch wirklich das richtige objekt vorliegt.

ansonsten solltest du eine basisklasse definieren, die diese methode bereits enthält, wie rwachtel geschrieben hat. das geht so:

Delphi-Quellcode:

type
  TDevice = class {abstract} (TObject); //class abstract funktioniert ab Delphi 2005
  public
    function IsLogData: Boolean; virtual; abstract;
  end;

das schlüsselwort "virtual" besagt, dass die methode in einer nachfolgerklasse überschrieben werden kann, "abstract", dass sie in dieser Klasse nicht implementiert (=ausprogrammiert) wird.

überschrieben wird sie dann so:

Delphi-Quellcode:

type
  TSpectraII = class(TDevice)
  public
    function IsLogData; override;
  end;

override sorgt dafpr, dass der aufruf von IsLogData nicht auf die abstrakte Methode des vorgängers prallt, sondern auf die tatsächliche klasse umgeleitet wird.

[Muetze1]

Zitat:

Zitat von rwachtel

Abhilfe schafft ein Typecasting:

Delphi-Quellcode:

TSpectraII(LastObject).IsLog(Data);

Er hat mehrere unterschiedliche Klassen in LastObject - das ist in so fern richtig gefährlich einen harten Typecast zu empfehlen - das ist mehr als gefährlich sowas als Antwort zu posten! Harter Typecast wäre ok, wenn vorher der Klassentyp mit dem IS Operator überprüft wurde. Oder halt ein weicher Typecast, dieser liefert NIL, wenn die Klasse nicht stimmt - da er selber nochmal einen Vergleich mit IS vornimmt.

[Khabarakh]

Zitat:

Zitat von Muetze1

Oder halt ein weicher Typecast, dieser liefert NIL, wenn die Klasse nicht stimmt - da er selber nochmal einen Vergleich mit IS vornimmt.

So funktioniert der Operator in anderen Sprachen, under Anderem C#, in Delphi jedoch wird eine EInvalidCast-Exception geworfen.

[Muetze1]

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von Muetze1

Oder halt ein weicher Typecast, dieser liefert NIL, wenn die Klasse nicht stimmt - da er selber nochmal einen Vergleich mit IS vornimmt.

So funktioniert der Operator in anderen Sprachen, under Anderem C#, in Delphi jedoch wird eine EInvalidCast-Exception geworfen.

Sorry, stimmt, mein Fehler. So manchmal kommt man doch schon durcheinander...