Registrieren von Klassen

[barnti]

Hi Choose,

das ist richtig. Nur habe ich dann das folgende Problem:

Delphi-Quellcode:

unit PDInterface;
...
type
// Metaklassenvariable
TPDObjectClass = class of TPDObject;
TClassIndex = (Ansprechpartner,Auftrag,auftragstatus,benutzer,bereich,beschaedigung,config,
               container,dbdesigner4,dokument,foto,hafenplatz,kolli,Kunde,
               packliste,partie,partiestatus,partiekarte,pending,position,produktbeschreibung,
               produktgruppe,sql,unterpartie,userconfig,vertrag,zustaendigkeit);
TClassArray= array[Ansprechpartner..zustaendigkeit] of String;

  TPDInterface = class (TObject)
  private
    ClassArray: TClassArray;
    {{
    FDatabase is the state field of the Database property.
    }
    FDatabase: TmysqlDatabase;
    {{
    Field FPDObjects.
    }
    FPDObjects: array of TPDObject;

...
function TPDInterface.GetPDObject(Index: Integer): TPDObject;
var
  pdClass: TPDObjectClass;
begin
  // Zur Vereinfachung: Klasse TPDAnsprechpartner finden
  pdClass:= TPDObjectclass(findClass('TPDAnsprechpartner'));
  
  // Erzeugen eines Objektes der gefundenen (?) Klasse
  // Die spezielle Klasse erfordert aber den Parameter 'Name' zur Erzeugung?! Und nicht   
  //Database!? 
  PDClass.Create(Database);
  // Demnach müsste hier stehen
  // PDClass.Create('MeinName');
end;

Dies leht der Compiler aber ab!
Wo ist mein Fehler?!