Klassen aus Vaterklassen erben lassen

[katika90]

Hay Community, wieder mal habe ich ein Problem:

Ich habe die Klasse Punkt und die Klasse Strich, nun möchte ich die Klasse Strich aus der Klasse Punkt erben lassen.

Die Klasse Punkt hat folgende Attribute: visible:boolean, xpos:integer, ypos:integer und Bild:TImage
Die Klasse Strich soll diese Attribute erben und zusätzlich noch diese hier bekommen: xpos2:integer, ypos2:integer, Farbe:TColor;
Die Klasse Punkt hat folgende Methoden: create(image:Timage);setpos(xpos:integer,ypos:inte ger); loeschen(); zeichnen();

Könnt ihr mir sagen wie man das mit delphi implementiert?

Danke im Vorraus
Katika

[DeddyH]

Delphi-Quellcode:

type
  TPunkt = class
  private
    //private Felder und Methoden
  protected
    //protected Felder und Methoden
  public
    //öffentliche Properties und Methoden
  end;

  TStrich = class(TPunkt)
  //hier nun wie oben die zusätzlichen Felder/Methoden/Properties deklarieren
  end;

[himitsu]

http://www.delphi-treff.de/object-pascal/vererbung/

[Deep-Sea]

Nebenbei: Anstatt zwei einzelne Variablen für X und Y zu nutzen, kannst du auch eine des Typs TPoint nutzen. TPoint enthält bereits zwei Werte namens X und Y. Und bist du dir sicher, dass "Bild" vom Typ TImage sein muss und nicht vlt. auch TPicture reichen würde?