Klasse eines Objekts zur Laufzeit ändern

[shmia]

Zitat von Luckie:

Gibt es dafür auch einen praktischen Anwendungsfall?

Wenn z.B. eine grössere Datenbankanwendung plötzlich mit FoxPro Tabellen arbeiten soll ergibt sich das Problem, dass alle Felder anhängende Leerzeichen haben.
Man könnte bei jedem Zugriff auf ein String-Feld ein TrimRight hinzufügen.
Das ist natürlich sehr aufwendig und manchmal gar nicht möglich.
Man könnte eine Klasse TTrimedStringField von der Klasse TStringField ableiten.
Wenn man dann im Event [TDataSet.]AfterOpen alle TStringField Klassen in TTrimedStringField ändert, kann man das Problem mit wenig Aufwand in der Griff bekommen.

Auch bei Anwendung des State Design-Patterns ist das Ändern der Klasse hilfreich.