Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Klasse sich selbst in eine abgeleitete konvertieren

    Delphi
    by Phoenix, 1. Mär 2010
  Also *eigentlich* müsste es so gehen:
  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...
• Forum: Object-Pascal / Delphi-Language

  Re: Klasse sich selbst in eine abgeleitete konvertieren

    Delphi
    by Phoenix, 1. Mär 2010
  Das klingt ein bisschen Wirr.
  
  Meinst Du vielleicht das sogenannte Factory-Pattern?
  
  Ansonsten macht die Geschichte nicht viel Sinn: Die abstrakte Basisklasse kann den eigentlichen Typen gar nicht kennen.
  
  Man stelle sich vor, die abstrakte Basisklasse liegt in einem Package, ein anderer Entwickler verwendet das Package und leitet von ihr ab - z.B. von TTransporter auf THühnerTransporter....