Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Auf den Typ der aufrufenden Instanz reagieren

  Alt 6. Apr 2007, 16:34
Hallo Dominik,

die benötigte Klassenreferenz zum Erzeugen einer neuen Instanz erhältst du über Delphi-Referenz durchsuchenTObject.ClassType:

Delphi-Quellcode:
procedure TBigClass.DoSomething;
var NewBigClass: TBigClass;
begin
  if ReallyDoIt then
  begin
    [..]
    NewBigClass := ClassType.Create AS TBigClass;
    [..]
  end;
end;
Wenn den den Constructor später überschreiben möchtest, so daß er Parameter übernimmt, dann solltest du die Klassenreferenz als Typ vereinbaren:

Delphi-Quellcode:
type
  TBigClassType = class of TBigClass;

[..]
NewBigClass := TBigClassType(ClassType).Create(...);
[..]
Gruß Hawkeye
  Mit Zitat antworten Zitat