Hallo Muetzel1,
ich hab jetzt mal versucht deinen Code zu testen, und es klappt auch soweit.
Delphi-Quellcode:
var
Geometrien : array of TGeometrie ;
...
Setlength(Geometrien,2) ;
Geometrien[0] := GetMetaClassForID ('QUADER').Create ;
Geometrien[1] := GetMetaClassForID ('KUGEL').Create ;
probier ich dann meine Klassen zu erzeugen... In der GetMetaClassForID Funktion krieg ich dann aber einen abstrakten Fehler als Rückmeldung, wenn dort versucht wird auf GeometrieClasses[i].ObjektID zuzugreifen.
Ich hab womöglich noch einen Fehler drin, wahrscheinlich in der Überschreibung der ClassID Methoden... So siehts bei mir aus:
Delphi-Quellcode:
TKugel = class (TGeometrie)
public
class Function ObjectID : string ;
end ;
...
class function TKugel.ObjectID: string;
begin
Result := 'KUGEL' ;
end;
Oder ich hab alles durcheinander geworfen...
Aber Hut ab, wenn ich das am Laufen hab, ist es genau das was ich gesucht habe
Ech cool.
Gruß,
Tom