Design: globale Variable vs globale statische Klasse

[Jazzman_Marburg]

'n Abend Herrschaften!

Ich habe hier mal ein konzeptionalles Problem und hoffe mal dass ihr den einen oder anderen Kommentar dazu geben könnt oder vielleicht auch darüber berichtet, wie ihr mit folgendem Problem umgeht.

Ich habe eine Applikation bei der verschiedene Units auf eine handvoll globaler Variablen zugreifen müssen. Dazu habe ich in meiner Main_Form globale Variablendeklariert (ein zentrales XML-Document, ein zentrales Grafik-Objekt, und ein paar Integer Variablen).
Damit die verschiednen Units darauf zugreifen können, habe ich dann also jeweils ein "Uses Main_Form" im Implementation-Teil der Units stehen.
Nachdem nun alles funktionert, stelle ich fest, dass mir dieses Vorgehen nicht so richtig gefällt:
1. Alles Units haben ein "Uses Main_Form"
2. Verwendung von globalen Variablen

Um diese Unschönheiten zu beheben, dachte ich wäre es doch schön, ein "statisches" Objekt zu haben, welches die überall gebrauchten Variablen in sich birgt. Dieser "Data_Provider" hätte den Vorteil:
1. Weil statisch: nur eine Instanz. Niemand kann einfach ein zweites Data_Provider-Objekt instanziierten
2. Weil so ein statisches Objekt ja nicht Created werden braucht, kann man einfach mit TData_Provider.XML-File etc. elegant darauf zugreifen.
Dazu müße ich einfach mit einem Uses im Interface jeder Unit die Data_Provider Unit bekannt machen und fertig wäre die Laube.

Aber so einfach ist das wohl nicht. Solange es sich nur um Variablen handelt, kann ich ja einfach ein CLASS davorschreiben und ich hätte ein Klassenfeld. Was aber ist z.B. mit einem XML-Doc -- das muß ja dann irgendwo instanziiert werden.
Mein Data_Provider sieht z.Z. so aus:

Delphi-Quellcode:

UNIT U_DataProvider;

INTERFACE
USES
  XMLDoc, XMLIntf;

TYPE
  TDP = CLASS
  PRIVATE
    CLASS VAR FXMLFileName    : STRING;
    CLASS VAR FPresets        : STRING;
    CLASS VAR FImageFileName  : STRING;
    CLASS VAR XMLDoc          : TXMLDocument; // Was damit tun?!

  PUBLIC
    CLASS PROPERTY XMLFileName    : STRING READ FXMLFileName     WRITE FXMLFileName;
    CLASS PROPERTY PresetsFileName: STRING READ FPresetsFileName WRITE FPresetsFileName;
    CLASS PROPERTY ImageFileName  : STRING READ FImageFileName   WRITE FImageFileName;
  END;

IMPLEMENTATION


END.