Kein Fehler obwohl Objekt nicht erstellt !?

[jfheins]

Bei mir ist es andersherum, als bei den meisten, aber ich frage mich gerade, warum ich keinen fehler bekomme ...

Folgende Deklarationen:

Delphi-Quellcode:

  TCommand = (TXT, DATA);

  TMsgRecord = Record
                 Command: TCommand;
                 Font: TFont;
               end;

Dasnn mache ich folgendes:

Delphi-Quellcode:

 MsgRecord.Command := TXT;
 MsgRecord.Font := FontDialog1.Font;

Ich habe *nirgends* ein MsgRecord.Font := TFont.Create oder so ...
Ich greife also imho auf ein nicht existierendes Objekt zu ... und es gibt keine AV ...

Warum ?

P.S. Ein direkter Aufruf wie MsgRecord.Font.Heigth := 10 schlagt fehl ...
wird der Constructor etwa automatisch aufgerufen ???

[Dax]

Du bekommst keinen Fehler, weil Klassen als Pointer gehandhabt werden. Beim Assignement wird nur der Pointer im Record überschrieben, da brauchst du keinen Konstruktor.

[jim_raynor]

Warum? Weil du nicht auf ein Objekt zugreifst. Objekte sind Pointer. Wenn du MsgRecord.Font := FontDialog1.Font; schreibst, wird einfach nur die Adresse des Objektes in FontDialog1.Font nach MsgRecord.Font übertragen. Danach zeigen beide auf das gleiche Objekt.

[Hansa]

was ist TXT ? Schreibe mal Type Zahl= 1..2; und dann Zahl := 1; So nicht !

[Luckie]

Zitat von Dax:

Du bekommst keinen Fehler, weil Klassen als Pointer gehandhabt werden. Beim Assignement wird nur der Pointer im Record überschrieben, da brauchst du keinen Konstruktor.

Wo siehst du da eine Klasse? Für mich ist das ein Record und somit ein zusammengesetzter Datentyp und Datentypen muss / kann man nicht instanzieren. Oder wie sieht der Konstruktor einer Integer-Variablen aus?

Delphi-Quellcode:

type
  TMsgRecord = Record
    Command: TCommand;
    Font: TFont;
  end;

var
  MsgRecord: TMsgRecord;

[..]

  MsgRecord.Font := TMyFont;

[jim_raynor]

Ähh, leute er wundert sich warum er bei MsgRecord.Font := FontDialog1.Font; keine Zugriffsverletzung bekommt. Er denkt er würde dabei auf eine Eigenschaft von TFont zugreifen, was aber nicht der Fall ist.

[Luckie]

Wie jetzt? Er wundert sich warum es keine AV gibt bei der Zeile:
MsgRecord.Font := FontDialog1.Font; Ja um was geht es denn nun? Um den FontDialog oder um den Record?

[Dax]

Es geht um den TFont-Teil des Records

[Luckie]

Ja, wo ist denn da das Problem? TFont ist doch auch nur ein Datentyp, wie jeder andere auch und keine Klasse.

[tommie-lie]

Zitat von Luckie:

Ja um was geht es denn nun? Um den FontDialog oder um den Record?

Um das Feld "Font" vom Typ "TFont" des Records, dem er einen Wert zuweist, obwohl im Feld "Font" des Records keine Instanz von TFonr erzeugt wurde

@Julius: Der FontDialog erzeugt eine Instanz der TFont-Klasse, und diese Instanz weist du jetzt deinem Record zu, also brauchst du es nicht selber erzeugen, denn du nimmst dir ja was, was schon da ist und setzt es in eine leere Schüssel
Allerdings vermute ich, daß TFontDialog.Destroy die TFont-Instanz wieder freigibt, nach einem FontDialog1.Free wird also vermutlich der Objektpointer ungültig und du kriegst beim nächsten Zugriff die AV, auf die du so sehnsüchtig wartest
Eine Lösung dafür wäre dann TFont.Assign, dann musst du aber wiederum deine eigene TFont-Instanz erzeugen *g*

Thomas, hoffend jetzt endgültig Verwirrung gestiftet zu haben


Edit: Grad' nochmal nachgeschaut, TFontDialog.Destroy gibt tatsächlich die TFont-Instanz wieder frei, es gilt also mein zuletzt gesagtes