Hi zusammen!
Ich möchte in einem Formular allen "Datensteuerungs"-Komponenten die gleiche DataSource zuweisen.
Also dachte ich mir: Per FOR-Schleife alle Komponenten durchgehen, und wenn es eine solche Komponente ist, die DataSource setzen.
Meine erste Idee wäre jetzt, das folgendermaßen zu machen:
Quelltext
1:
2:
3:
4:
5:
6:
| [...]
if Components[i] is DBEdit then
DBEdit(Components[i]).DataSource := dsIrgendeine
else if Components[i] is DBNavigator then
DBNavigator(Components[i]).DataSource := dsIrgendeine
[...] |
Allerdings: Besonders elegant finde ich das nicht, vor allem muss man das jedesmal erweitern, wenn zB neue Komponentenarten dazukommen o.ä.
Leider haben diese Daten-Komponenten ja keine gemeinsame Vorfahrenklasse, die man dafür benutzen könnte...
Gibt es eine Möglichkeit, das schöner zu lösen?
