Klasse sich selbst in eine abgeleitete konvertieren

[Phoenix]

Also *eigentlich* müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  obj: TObject;
  cl: TPersistentClass;
begin
  Classes.RegisterClass(TButton); // oder eben TSchweineTransporter
  cl := GetClass('TButton'); // eben auch hier TWasauchimmerTransporter
  obj := cl.Create(); 
  ShowMessage(obj.ClassName); // hier sollte dann Dein TWasauchimmerTransporterstehen...
end;

[guinnes]

Geht deshalb nicht, weil der Constructor von TPersistent nicht virtual ist und damit nicht in der VMT steht. Folgendes geht :

Delphi-Quellcode:

Type
  TTest = class;
  TTestClass = class of TTest;

  TTest = class (TPersistent)
    class function CreateInstanze(aClass : TTestClass) : TTest;
    constructor Create; virtual;abstract;
  end;


  TAbgeleitet = class(TTest)
    constructor Create; override;
  end;

{ TTest }

class function TTest.CreateInstanze ( AClass: TTestClass) : TTest;
begin
  Result := aClass.Create;
end;

{ TAbgeleitet }

constructor TAbgeleitet.Create;
begin
  Beep;
end;


procedure TForm1.btnClick(Sender: TObject);
var
  lClass : TTest;
begin
  lClass := TTest.CreateInstanze(TAbgeleitet);
end;

Der Konstructor von TAbgeleitet wird aufgerufen.
Die Verwendung von GetClass ist hierbei nicht nötig, weil bei einem Klassenreferenztypen gleich der Pointer auf die VMT mitgegeben wird und nicht erst alle VMT's durchsucht werden müssen ( Performance )

[Patrick]

"GetClass" ist nötig. Das ist eine Anforderung. Ich lese einen String, der mein Klassenname ist. Ich wollte keine manuelle "case of" "GetClass" schreiben. Da ich dann aber an den TPersistent gebunden bin funktioniert das ganze nicht. Also werde ich mir doch ein eigene GetClass schreiben.

Aber Danke!

[Khabarakh]

Dann caste das Ergebnis von GetClass nach TTransporterClass...?