Kein Fehler obwohl Objekt nicht erstellt !?

[jfheins]

Mir ging es um das TFont-Feld des Records, und warum man MsgRecord.Font := FontDialog1.Font; schreiben kann, ohne ein AV zu bekommen.
Thx to jim_raynor und die anderen ...

Ach ja,

Zitat von Luckie:

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

Das ich sowas noch erleben darf

In meinem Delphi steht folgendes:

TFont = class(TGraphicsObject)
private
{...}

Na wenn das keine Klasse ist ...

[Luckie]

Oh verdammt, da habe ich mich wohkl vertan.

Aber du kannst dich auch mal kalrer ausdrücken um was es dir eigentlich geht.

[jim_raynor]

Zitat von Luckie:

Oh verdammt, da habe ich mich wohkl vertan.

Aber du kannst dich auch mal kalrer ausdrücken um was es dir eigentlich geht.

Dax und ich haben es doch von Anfang an verstanden Also so schlimm war es garnicht.

[Sanchez]

Hallo,

Wenn das hier
MsgRecord.Font := FontDialog1.Font; eine AV liefern würde, dann müsste das hier

Delphi-Quellcode:

var EinFont : TFont;
begin
  EinFont := TFont.Create;
end;

genauso eine AV liefern. In beiden Fällen weisst du einer Variable, die vorher ins Nirvana zeigte einen gültigen Wert zu.
Warums sollte das einen Fehler liefern?

grüße, daniel

[Robert_G]

Zitat von Sanchez:

In beiden Fällen weisst du einer Variable, die vorher ins Nirvana zeigte einen gültigen Wert zu.
Warums sollte das einen Fehler liefern?

Falls ich das Drunter&Drüber richtig gedeutet habe ist nicht mehr die Zuweisung sein Problem sondern das Freigeben.
War aber auch nur ein Blick in die trübe Kristallkugel.

[tommie-lie]

Zitat von Robert_G:

Falls ich das Drunter&Drüber richtig gedeutet habe ist nicht mehr die Zuweisung sein Problem sondern das Freigeben.

Nein, Julius ging's erstmal um's Zuweisen, das mit dem Freigeben habe ich ins Spiel gebracht

P.S.: Jaaaaaa, ich habe es geschafft, ich habe wenigstens einen verwirrt!

[Robert_G]

Zitat von tommie-lie:

P.S.: Jaaaaaa, ich habe es geschafft, ich habe wenigstens einen verwirrt!

Kunststück Bei meinem biblischen Alter verwirrt mich schon ein An/Aus-Knopf (An oder aus, an oder aus, ... ? )

[Luckie]

->

[berens]

Um das Problem nochmals aufzugreifen (ich stehe nämlich vor selbigen):

Delphi-Quellcode:

function Font_GetFontFromUser(_Font: TFont): TFont;
var
  FD: TMyFontDialog;
begin
  Result := NIL;
  FD := TMyFontDialog.Create(NIL);
  try
    FD.Font := _Font;
    if FD.Execute then begin
      Result := FD.Font;
    end;
  finally
    FreeAndNil(FD);
  end;
end;

Ich habe eine globale Variable vom Typ TFont die ich beim Aufrufen dieser Funktion übergebe und auch wieder zuweise, also in der Form
  FfntBla := Font_GetFontFromUser(FfntBla); Aber kurze Zeit (nicht direkt!) nachdem ich diese Funktion aufgerufen habe, sind die Werte von FfntBla.Name, FfntBla.Size etc. in der "Liste überwachter Ausdrücke" ungültig. Vermutete Ursache ist -wie hier schon angesprochen-, dass mit FreeAndNil auch meine globale Schrift freigegeben wird.

Als Abhilfe hatte ich folgendes angedacht:

Delphi-Quellcode:

 
function Font_GetFontFromUser(_Font: TFont): TFont;
var
  FD: TMyFontDialog;
  DummyFont: TFont;
begin
  Result := NIL;
  FD := TMyFontDialog.Create(NIL);
  try
    DummyFont := FD.Font
    FD.Font := _Font;
    if FD.Execute then begin
      Result := FD.Font;
    end;
    FD.Font := DummyFont;
  finally
    FreeAndNil(FD);
  end;
end;

Leider besteht dummerweise das Problem und die globale Variable wird freigegeben, obwohl das afaik nicht sein durfte!

Vielen Dank für schnelle Antworten!

[Sascha L]

Das Problem ist, dass du nur den Pointer setzt und somit ist auch klar, dass FfntBla auf nichts zeigt, wenn du das Ziel frei gibst.

Du musst also Assign verwenden!

FfntBla.Assign(Font_GetFontFromUser(FfntBla));