Kein Fehler obwohl Objekt nicht erstellt !?

[Hawkeye219]

Bei der Zuweisung über ":=" wird nur der Zeiger kopiert. Du hast somit zwei Zeiger auf ein Objekt. Wenn danach das Objekt über einen Zeiger freigegeben wird (in unserem Beispiel vom Dialog), dann zeigt der andere Zeiger ins Leere.

Bei der Zuweisung über "Assign" wird der Inhalt des Objekts kopiert. Es existieren danach also zwei Zeiger, die auf unterschiedliche Objekte verweisen. Wird nun eines dieser Objekte freigegeben, ist das andere mit seinem Zeiger weiterhin gültig.

Leider wird dieses Verhalten durch die Eigenschaften (Properties) in Delphi etwas verschleiert. Was nach außen wie eine einfache Zuweisung über ":=" aussieht, kann in Wirklichkeit eine Zuweisung über "Assign" sein, weil die zugehörige Setter-Methode der Eigenschaft die Daten kopiert und nicht den Zeiger. In deinem Code passiert das in der Zeile

FD.Font := DummyFont; Hier wird nicht der "alte" Zeiger wiederhergestellt, sonder der Inhalt von DummyFont in das lokale Font-Objekt des Dialogs übertragen. Delphi macht also folgendes daraus:

FD.Font.Assign(DummyFont); Ich hoffe es ist nun etwas klarer. Da du ja über die Quelltexte der VCL verfügst, solltest du dort einfach mal reinschauen. Es ist am Anfang ziemlich mühsam, aber du lernst sehr viel.

Gruß Hawkeye