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;