code smell

[dinosaur]

Bei uns werden viele Forms in der Datenbank gespeichert, damit Kundenspezifische Anpassungen leicht möglich sind.
Beim auslesen aus der Datenbank hat es eine stelle die für mich einfach nach schlechtem Design aussieht..
Ein sehr grosser Block von If-Abfragen(für jede Komponente die verwendet werden kann ...):

Delphi-Quellcode:

if c = 'TLabel'        then control := NewLabel;
if c = 'TMyEdit'       then control := NewEdit;
if c = 'TMyMemo'       then control := NewMemo;
if c = 'TButton'       then control := NewButton;
if c = 'TMyButton'     then control := NewButton;
if c = 'TMyCheckBox'   then control := NewCheckBox;
if c = 'TRadioButton'  then control := NewRadioButton;
if c = 'TListBox'      then control := NewListBox;

//...usw.

Weiss jemand, wie man dies schöner gestalten könnte bzw. ein sinnvolles DesignPattern?

[himitsu]

Nutze doch den Weg der VCL, wenn sie die VCL-Formulare (DFMs) läd.

- am Anfang alles Nötige via RegisterClass oder RegisterClasses registrieren
- dann statt deiner IFs nur noch ein FindClass
- und am Ende das UnRegisterClass oder UnRegisterClasses nicht vergessen