Polymorphismus-Problem

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

Angenommen ich leite z.B. folgende Klassen ab:

Delphi-Quelltext

1:
2:
3:
4:

TShape = class
TRectangle = class(TShape)
TEllipse = class(TShape)
etc.

und übergebe eine Instanz von TRectangle an eine Prozedur

procedure DoSomething(aShape : TShape);

markieren

Delphi-Quelltext

1:
2:
3:
4:

 var clone : TShape;
begin
 clone := aShape.ClassType.Create; ???
end;

wie erzeuge ich eine weitere Instanz der übergebenen Klasse, also z.B. ein weiteres TRectangle, wenn aShape vom Typ TRectangle ist (ohne Fallunterscheidung per if/case/is)?

Allesquarks · Beiträge: 510 Win XP Prof Delphi 7 E

entweder du legst eine Klassenreferenz in jede Instanz deiner Klassen myclassvariable: class of TShape
oder du erzeugst virtuelle methoden in den Klassen, da diese dann dynamisch, das heißt jede Klasse kann ihre eigene Aufrufen, dann weißt du in der Methode die Klasse die du erzeugen möchtest.

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

Diese Klassenreferenz ist doch schon durch ClassType gegeben. Mit

markieren

Delphi-Quelltext

1:	clone := TShape(aShape.ClassType.Create);

bekomme ich tatsächlich eine weitere Instanz der übergebenen Klasse. Ich muss nur einfach noch von TObject auf TShape casten.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme