Hallo Choose,
ist ich weiß nicht, ob ich alles verstanden habe.
Noch einmal zur Erklärung:
Für jede Tabelle in der
DB soll eine Klasse existieren. Dafür muss beim 'Laden' der Anwendung folgendes geschehen:
1.Klassen registrieren: Stehen in Initialization-Teil
Das genügt für den Start der Anwendung. Möchte ich jetzt mit einer Tabelle arbeiten, so wird das in der Anwendung ausgelöst:
Der Benutzer wählt eine Tabelle mit Namen oder den Index der Tabelle und deren Inhalt in einem z.B. TDBGrid anzeigen zu lassen.
Dieses Laden der Tabelle sollte generisch geschehen. Dazu wird entweder der Index oder der Tabellenname benötigt:
Delphi-Quellcode:
function TPDInterface.GetPDObject(Index: Integer): TPDObject;
var
pdClass: TPDObjectClass;
begin
// Klasse über Idex des Arrays ansprechen(theoretisch geht dann auch der Name der Tabelle)
pdClass:= findClass('TPD'+ClassArray[TClassIndex(index)]);
//pdClass:= findClass('TPDAnsprechpartner');
if FPDObjects[index]= NIL then FPDObjects[index]:= PDClass.Create(Database);
result:= FPDObjects[index];
Um das zu ermöglichen sind die Tabellen in im Array 'ClassArray' mit dem Namen gespeichert. In der Funktion soll damit also ein Objekt vom Typ 'findClass('TPD'+ClassArray[TClassIndex(index)]);' erzeugt werden.
Deshalb das Array.
Ist das verständlich? Oder denke ich umständlich?
Ich will lediglich die Erzeugung generisch geschehen lassen... Das Mapping geschieht mit Hilfe des 'ClassArray'.
Das Datenbankschema lässt sich nicht einfach indiziert ansprechen deshalb das Array...