|
Registriert seit: 17. Feb 2003
227 Beiträge
|
3. Apr 2003, 21:01
Ein Objekt kannst du während es initialisiert ist nicht erweitern, was du vermutlich meinst ist neue Klassen durch Vererbung zu erweitern.
Ich würde an deiner Stelle die Klassen entwerfen (Vererbung könnte man sicher nutzen) und davon Objekte erzeugen die in einer TObjectlist verwaltet werden könnten. Du könntest sogar über dem Index genau dein Level-OBJ ansprechen.
function getallfornothing: TGoldesel;
begin
result := TGoldesel.create;
end;
|