Hallo,
ich fange gerade an in Delphi mit Klassen zu arbeiten. Ich möchte Objekte zeichnen und diese Objekte auch abspeichern. Als erstes habe ich mir die nötigen Klassen deklariert:
Delphi-Quellcode:
Tfigure=class(Tobject)
Typ: Tobjecttyp;
Penwidth: Integer;
end;
Tline=class(Tfigure)
start: Tpoint;
finish: Tpoint;
procedure draw; //diese Prozedur zeichnet eine Linie
end;
Tcircle=class(Tfigure)
mid: Tpoint;
point: Tpoint;
procedure Draw; //diese Prozedur zeichnet einen Kreis
end;
List: array of Tfigure;
Jetzt werden Daten in die Liste geladen:
Delphi-Quellcode:
list[1]:=Tcircle.create;
list[2]:=Tline.create;
Ich möchte nun das bei:
list[1].draw; ein Kreis gezeichnet wird
und bei
list[2].draw; eine Linie
Würde das bei dem obigen Prinzip klappen oder würden da Probleme wegen der Vererbung auftreten?
mfg KahPee