Zitat von
glkgereon:
Die Frage(n) dazu:
Ist soetwas grundsätzlich möglich?
Wie kann ich einen Typen hinterlegen?
Und last, but not least: Wie sähe das ganze konkret als Code aus?
Ja, es ist prinzipiell Möglich.
Einen solchen Typen musst du als Metaklasse (class of <Type>) hinterlegen
Delphi-Quellcode:
// Deine Basisklasse
TImport = class(TObject)
end;
// Meta-Klasse
TImportClass = class of TImport;
// Ersetzt eigentlich nur deinen Record, erklär noch warum
TImportType = class(TObject)
private
// Die gespeicherte Basisklasse (also auch ein Nachfahre)
FClassType : TImportClass;
// Die Beschreibung
FDescription : String;
public
constructor create(classType : TImportClass; Description : String);
property classType : TImportClass read FClassType;
property description : String read FDescription;
end;
So, dass sind die Typen die du anlegen musst. Ich hab TImportType einfach mal zu einer Klasse gemacht, da man so leicht dein Array durch ein TStrings ersetzen kann. Ist der Zugriff einfach nur schöner als wenn du jetzt über ein Array iterierst.
Ach ja, classType ist schlecht gewählt, gibt es schon bei TObject, sollte also umbenannt werden.
Delphi-Quellcode:
// Eintragen
var stringList : TStringList; // natürlich etwas globaler
classType : TImportClass;
description : String;
DateiEndung : String;
begin
// Stringlist erzeugen
stringList := TStringList.Create;
// Für jede Dateiendung die dazugehörige Instanz von TImporttype speichern
DateiEndung := 'xls'; // Dateiendung festlegen
Description := 'MS Excel Datei'; // Beschreibung für die DateiEndung
classType := TXLSImport;
stringList.AddObject(DateiEndung, TImportType.Create(classType, description));
// ...
// ...
end;
// Und für einen Dateityp den import durchführen
var instanz : TImport;
begin
// Schaut in der Stringlist nach, ob es den Eintrag DateiEndung gibt. Holt das Objekt, dass an dieser Stelle steht
// Castet dieses Objekt zu TImportType, nimmt die gespeicherte Meta-Klasse und erzeugt eine Instanz von ihr
instanz := TImportType(stringList.Objects[stringList.IndexOf(DateiEndung)]).classType.Create;
// instanz enthält jetzt eine zur Dateiendung gehörige Instanz
end;
So, nicht ganz sauber, aber kannst du ja sicher leicht verbessern. Solltest auf jedenfall prüfen ob es überhaupt einen Eintrag zu der Dateiendung gibt, bevor du auf classType zugreifen möchstest. Sonst gibt's wohl ne
AV.
Hoffe es hilft weiter,
Gruß Der Unwissende