Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
6. Apr 2007
Hallo Chris,
man sollte auf ClassType verzichten, wenn es möglich und sinnvoll ist, z.B. bei einer Typabfrage durch den Operator is. In Dominiks Code könnte man ClassType prinzipiell auch durch eine IF-Konstruktion ersetzen:
if Self is TSmallClass then
NewBigClass := TSmallClass.Create
else
if Self is TBigClass then
NewBigClass := TBigClass.Create
Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
6. Apr 2007
Hallo Dominik,
die benötigte Klassenreferenz zum Erzeugen einer neuen Instanz erhältst du über TObject.ClassType:
procedure TBigClass.DoSomething;
var NewBigClass: TBigClass;
begin
if ReallyDoIt then
begin