Klassen in Delphi

[Luckie]

Klassen in Delphi
Thema: Einführung in die objektorientierte Programmierung mit Delphi
Datum: 2007-12-02

Das Tutorial wurde - im Zuge der Vereinheitlichung der Layouts meiner PDF-Dokumente - noch mal neu mit Latex geschrieben. Inhaltlich hat sich nichts geändert. Das Layout ist jetzt doppelseitig und kann so schön ausgedruckt und gebunden werden (falls das jemand machen sollte ).

Das Tutorial liegt als PDF vor und kann hier: http://delphitutorials.michael-puff.de runtergeladen bzw. online eingesehen werden. In dem dazugehörigen Zip Archiv (Klassen_in_Delphi.zip) befinden sich noch zusätzlich Demos.

2007-12-02:
Kapitel "Sichtbarkeiten" ünberarbeitet.
Anhang mit Interans zum Konstruktor, Destruktor und Methodenzeigern von Andreas Hausladen.

[Pseudemys Nelsoni]

Sieht gut aus(auch wenn ich noch nicht bei klassen bin), ausführlich geschrieben. Gut gemacht Luckie .

Ich wollte einen (in meinen augen) kleinen (schreib)-fehler bemerken

Zitat:

Eine Methode ist eine Prozedur oder Funktion, die zu einer Klasse gehören

Müsste "gehört" heissen 8)

[Jens Schumann]

Hallo Luckie,
vielen Dank für das Tutorial.
Das Beispiel auf Seite 10 kann ich nicht nachvollziehen

Delphi-Quellcode:

...
  Figure := TFigure.Create;
  try
   TRectangle(Figure).Draw('TFigure.Create / TRectangle(Figure).Draw');
                   // Ruft TRectangle.Draw auf
  finally
    FreeAndNil(Figure);
    end;
...

Hier wird nicht TRectangle.Draw sondern TFigure.Draw aufgerufen. Wenn Figure vom Type TFigure ist und als TFigure instanziert wird kann trotz Typcast nur TFigure.Draw aufgerufen werden.
Wenn Figure vom Type TFigure ist und als TRectangle instanziert wird sieht die Sache schon ganz anders aus.

Delphi-Quellcode:

var
  Figure : TFigure;
begin
  Figure:=TRectangle.Create;
  Try
    Figure.Draw('TFigure.Create / TRectangle(Figure).Draw');
  Finally
    Figure.Free;
    end;  
end;

[Luckie]

Delphi-Quellcode:

  Figure := TFigure.Create;
  try
    TRectangle(Figure).Draw('TFigure.Create / TRectangle(Figure).Draw');
      // Ruft TRectangle.Draw auf
  finally
    FreeAndNil(Figure);
  end;

Kuck es dir im Demo an. Setz einen Breakpunkt auf Figure := TFigure.Create und gehe mit F7 durch und kuck welche Methode er aufruft. Bei mir springt er in die Draw Methode von TRectangle. Ist ja auch logisch, sonst wäre der Cast ja Blödsinn.

[sakura]

Zitat von Luckie:

Delphi-Quellcode:

  Figure := TFigure.Create;
  try
    TRectangle(Figure).Draw('TFigure.Create / TRectangle(Figure).Draw');
      // Ruft TRectangle.Draw auf
  finally
    FreeAndNil(Figure);
  end;

Das ist zwar ein Beispiel für das casten und ich gehe mal davon aus, daß TRectangle von TFigure abgeleitet ist, allerdings sollte man nie ein Objekt auf eine Klasse casten, von der es nicht abstammt - imho ein Negativbeispiel für das Verständnis von Klassen!

......

[Luckie]

Zitat von sakura:

allerdings sollte man nie ein Objekt auf eine Klasse casten, von der es nicht abstammt

TRectangle ist ein Nachfahre von TFigure. Insofern tue ich, laut deinen Worten nichts verbotenes. Wirf auch dies bezüglich mal einen Blick in den Handbuchsatz und kuck dir da das Beispiel an.

[sakura]

Zitat von Luckie:

TRectangle ist ein Nachfahre von TFigure. Insofern tue ich, laut deinen Worten nichts verbotenes. Wirf auch dies bezüglich mal einen Blick in den Handbuchsatz und kuck dir da das Beispiel an.

Danke für Die Info, also Sprachreferenz 7-11, auch da steht:

Figure := TRectangle.Create; und nicht

Figure := TFigure.Create; ......

[Jens Schumann]

Hallo Luckie,
ich habe nicht gesehen, dass es um statische Methoden geht.
Wenn die Methoden virtual / override sind funktioniert Dein Beispiel nicht so
wie beschrieben.
Warum es mit statischen Methode funktioniert weiss ich nicht.

Eigentlich müsste der Compiler das ablehnen. Du erzeugst eine Instanz von TFigure und sagst dem Compiler über den Cast es handelt sich um eine Instanz von TRectangle. Es handelt sich hier mehr
um ein Gefühl. D.h. ich würde mich sehr unwohl bei so einer Sache fühlen. Deshalb habe ich sowas wahrscheinlich auch noch nicht gemacht (so rein intuitiv). Ich versuche es mal mit einem Beispiel:

Delphi-Quellcode:

var
 aObj : TObject;
 aFrm : TForm;
...
 aObj:=aFrm; // Ok kein Problem
 aFrm:=aObj; // Compiler meckert zu recht

Wobei ich das Gefühl habe, dass Dein TRectangle(Figure).Draw hier im Beispiel dem aFrm:=aObj entspricht.

[neolithos]

Zitat von Jens Schumann:

aFrm:=TForm(aObj);

Sind eh alles bloß Zeiger auf Instanzen.

Ist aObj kein TForm-Nachfahre, meckert er erst wenn du versuchst eine Methode aufzurufen!

[Luckie]

Nein, ich hatte mich vertan, Das war etwas unübersichtlich in dem Beispiel in dem Buch. Ich habe es schon korrigiert, auch das Demo.