Mal wieder Klassenvererbung

[Jelly]

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