[gelöst]Instanzen eines unbest. Types ->Falscher Constructor

[MAC]

Hallo liebes Lazarusforum,

Ich möchte Instanzen einer Klasse erstellen. Allerdings von einer unbestimmten Instanz.
Dabei hab ich das Problem das der Falsche Constructor aufgerufen wird (ich schätze mal der von TObject). Ich habe einen kleinen Beispiel Code gebastelt.

Es gibt eine Klasse TSomeClass mit einem Constructor in dem der wert fSomeValue gesetzt wird.
Erstellt man jetzt die Klasse normal ist fSomeValue = 9999;
Nimmt man jetzt aber eine Variable des Types TClass . und ruft eine Funktion auf in der Dynamisch das passende Objekt erstellt wird: So wird der Constructor nicht mehr aufgerufen.

Das ist ein simples Programm was ihr schnell testen könnt.
Kommt bei euch das gleiche raus wie bei mir?
Wisst ihr, wie ich das Problem umgehen kann?

Vielen Dank

Code: Alles auswählen

 
AUSGABE:
9999
0
 
 

Code: Alles auswählen

 
program project1;
 
uses classes;
 
type
 
  { TSomeClass }
 
  TSomeClass = class(TObject)
  private
    fSomeValue:integer;
  public
    Constructor Create;
  end;
 
{ TSomeClass }
 
constructor TSomeClass.Create;
begin
fSomeValue := 9999;
end;
 
{ CODE }
 
var
  c1,c2:TSomeClass;
  ac:TClass;
 
function ImporantFunction(aClass:TClass):TObject;
begin
result := aClass.Create;
end;
 
begin
c1 := TSomeClass.Create;
aC := TSomeClass;
c2 := TSomeClass(ImporantFunction(aC));
writeln(c1.fSomeValue);
writeln(c2.fSomeValue);
readln;
end. 

[Michl]

Kommt bei euch das gleiche raus wie bei mir?
Wisst ihr, wie ich das Problem umgehen kann?

Gleiches Verhalten bei mir. Weiss aber nicht, ob das überhaupt funktionieren kann, da imho der Compiler wahrscheinlich das TClass.Create einfach übersetzt.

Umständlich, aber es funktioniert bei mir:

Code: Alles auswählen

function ImporantFunction(aClass: TClass): TObject;
begin
  case aClass.ClassName of
    'TSomeClass': Result := TSomeClass.Create;
  end;
//  result := aClass.Create;
end; 

[MAC]

Danke fürs Testen,
Das wäre natürlich möglich, nur leider bringt mir das nichts, weil ich diese Klassen komplett Generisch erstellen will (Der benutzer kann bestimmte Klassen zu Laufzeit Definieren, und diese werden dann später erzeugt).

[theo]

http://stackoverflow.com/questions/7910 ... onstructor

[MAC]

Danke, der zweite Beitrag bei Stackoverflow ist genau das, was ich brauche.
Leider ist der Dort verwendete Weg nur für Delphi möglich (die unit rtti, gibt es bei Lazaurs nicht. Ich denke mal stattdessen gibt es typinfo).

Mit TypeInfo kann ich zwar die Procedure 'Create' suchen. Da die aber nicht published ist, liefert es mir nil zurück.

Ich probiere da noch etwas weiter und versuch morgen zu schreiben, falls ich was neues entdecke...

[Socke]

Der Konstruktor von TObject ist statisch, wird also von abgeleiteten Klassen nicht überschrieben.
Lösung:

Code: Alles auswählen

type
tmyc = class(TObject)  // Basis-Klasse
public
  constructor Create; virtual; // Virtueller Konstruktor
end;
tmycClass = class of tmyc; // jetzt wird der virtuelle Konstruktor verwendet, also auch die Konstruktoren der abgeleiteten Klassen
tmyc2 = class(tmyc)
  constructor Create; override;
end;
// [...]
 
function InitObjects(aclass: tmycClass): tmyc;
begin
  Result := aClass.Creat;
end;

[MAC]

Danke, damit lässt sich was anfangen...
Nur müsste ich jetzt jede Klasse von einem TObject mit virtuellem Konstruktor ableiten...
Bzw ich kann auch jede beliebige klasse als Tmyc Parsen und wenn sie einen virtuellen Konstruktor hat scheint es zu gehen andernfalls bekomm ich eine Fehlermeldung...
Ich werd mir das noch weiter anschauen und sollte ich etwas eleganteres finden schreib ich das hier rein

[Soner]

Schau mal LCL's Application.CreateForm-Prozedur, dort wird das gemacht was du willst:
LCLs TApplication.CreateForm(InstanceClass: TComponentClass; out Reference);

[MAC]

Ich habe das jetzt gelöst.
Mehr oder weniger zufrieden,

Dazu hab ich den Ansatz aus viewtopic.php?f=10&t=8178&p=72416#p72416 verwendet.
Das Ergebnis ist dann eine Intannz eines unbestimmten Types, allerdings brauch man dafür 2 Informationen.
1. Die Klasse muss in einer Variable vom Typ TClass stehen
2. Der klassenconstructor muss als pointer (und hier ohne Parameter) vorhanden sein.

Die Umsetzung erfolgte mit einer Liste in der die 2 Datenpaare für jede Klasse gespeichert sind. Nur muss am anfang des Programms einmal jede Klasse die benutzt werden will registriert werden.