Kann „ungenutzt“ Klassen in Delphi XE zur Verfügung gestellt werden

Question

Ich arbeite in Delphi XE, windows 7.

In einer Anwendung ich verschiedene Berichtstypen für meine Benutzer auswählen aktivieren möchten. Um dies zu tun, habe ich 1 Base-Bericht-Klasse und eine Unterklasse pro Berichtstyp (xml, csv, ppt, etc).

{Just an illustrating example} 
TBaseReport = class 
public 
    constructor Create; 
    procedure GenerateReport; virtual; abstract; 
    class function ReportType: string; virtual; abstract; 
end; 

T*Report = class(TBaseReport); 
//Etcetera. 

Ich möchte Rtti verwenden, um alle Berichtsklassen zu erkennen und ihren ReportType aufzulisten. Danach möchte ich mit Rtti eine Instanz der gewählten Berichtklasse erstellen und GenerateReport aufrufen. Alles in allem ist dies nicht schwer zu erreichen.

Allerdings gibt es einen großen Nachteil: Ich bin nie hart Codierung der Verwendung der absteigenden Klassen, so wird der Code nicht in der ausführbaren Datei enthalten.

Gibt es eine anständige Möglichkeit, den Linker/Compiler zu zwingen, diese Klassen einzuschließen?

Eine (n hässliche) Arbeit wäre es, die Verwendung der Berichte in ihrem Initialisierungsabschnitt zu simulieren, aber das würde ich lieber nicht tun. Eine bessere Lösung besteht darin, die Basisklasse persistent zu machen und "RegisterClass (T * Report)" aufzurufen. im Initialisierungsabschnitt. Es funktioniert, aber ich sehe keine andere Notwendigkeit, sie hartnäckig zu machen, also würde ich das lieber nicht tun. Auf der anderen Seite, vielleicht ist dies der einzige Weg, es zu tun?

Vielen Dank im Voraus.

Answer 1

Sie können die Compiler-Richtlinie {$STRONGLINKTYPES ON} verwenden, um alle Symbole Ihrer App in die endgültige exe einzufügen. Denken Sie daran, dass diese Option die Größe der ausführbaren Datei erhöht, da mehr RTTI in der ausführbaren Datei enthalten ist.

Answer 2

Sie können Ihre eigene Version von RegisterClass erstellen. So etwas wie RegisterReportClass. Intern behalten Sie Ihre eigene Liste von Berichtsklassen, die verwendet werden können. Ihre Registrierungsfunktion übernimmt einen TBaseReport-Klassentyp - TPersistent ist nicht erforderlich.

Ihre RegisterReportClass-Methode sollte im Abschnitt Initialisierung aufgerufen werden, um sicherzustellen, dass die Klassen enthalten sind.

Wenn Sie in der Grafikeinheit nachsehen, können Sie TFileFormatsList = class (TList) sehen. Dies ist die Klasse, die verwendet wird, um die verschiedenen Grafiktypen zu speichern. Sie kann als Beispiel für das Erstellen einer eigenen TReportFormatsList verwendet werden. Delphi verwendet eine statische Funktion TPicture.RegisterFileFormat, um Elemente zu ihrer internen Liste hinzuzufügen.