Designfrage: Pest oder Cholera

[Patrick]

Ich habe da mal ne Designfrage: Auf diese Unschönheit bin ich jetzt schon öfter gestoßen:

Und zwar habe ich ein paar Basisklassen:
z.B. THaus, TGarten und TGarage. (Können auch mehr sein, die in Beziehung zueinander stehen (auch Vererbung).

Jetzt haben alle Klassen etwas gemeinsam:
Ich kann sie (oder Besser die Daten, die sie enthalten) z.B. als XML exportierten und sie in eine Datenbank speichern. Deshalb hat jede Klasse eine Methode SaveToDataBase(Query : TQuery) und eine Methode ExportToXML(XMLAccess : TXMLAccess);

Damit weiß jede Klasse nur das, was sie wissen muss. (Es gibt keinen Datenbank-"Blob" der alle Klassen kennt und das komplette speichern übernimmt.)
Und jede Klasse gibt nur so viel preis, wie sie muss. (Wie sie in die Datenbank gespeichert wird weiß jede Klasse selbst am Besten.)

Und jetzt habe ich zwei Programme, die die Basisklassen verwenden. Programm1 benutzt die Klassen in vollem Umfang. Programm2 hat allerdings keine Datenbank-Anbindung, weshalb die Methoden SaveToDataBase keinen Sinn machen und einen TQuery kennt das Programm daher auch nicht. Wenn beide Programme aber die selben Units verwenden sollen muss ich mit hässlichen Compilerschaltern arbeiten um die Datenbank-Methoden und entsprechende Units aus der Uses-List vor Programm2 zu verstecken.

Gibt es dafür nicht ne Bessere Lösung? Stimmt mein Design nicht?