Record mit Objekt kopieren

[Luckie]

Ich habe einen Record:

Delphi-Quellcode:

type
  TTextObjectData = packed record
    Text: string;
    Font: TFont;
    TextAlignment: TAlignment;
    IsPageHeader: Boolean;
    IsLeftPage: Boolean;
    HeaderAlignment: TPageHeaderAlignment;
  end;

Wie man sieht beinhaltet er ein TFont-Objekt:

Delphi-Quellcode:

procedure TFotoBook.PageHeaders(Show: Boolean);
var
  i                 : Integer;
  Page              : TImageEnVect;
  TempFont          : TFont;
  TempPageHeaderData: TTextObjectData;
begin
  // Seitenköpfe anlegen, wenn noch nicht vorhanden
  if Show and not HasPageHeaders then
  begin
    for i := 0 to FPageCollection.Count - 1 do
    begin
      Page := FPageCollection.Items[i];
      if not HasPageHeaders then
      begin
        TempPageHeaderData.Text := 'Kopfzeile';
        TempFont := TFont.Create;
        try
          TempFont.Name := 'Tahoma';
          TempFont.Size := -10;
          TempFont.Color := clBlack;
          TempFont.Style := [];
          TempPageHeaderData.Font := TempFont;
        finally
          TempFont.Free;
        end;
        TempPageHeaderData.HeaderAlignment := haCenter;
      end;
      // Kopfzeileneigenschaften sichern
      PageHeaderData := TempPageHeaderData;
      AddPageHeader(Page, PageHeaderData);
    end;
  end
  else if not Show and HasPageHeaders then
  begin
    for i := 0 to FPageCollection.Count - 1 do
    begin
      Page := FPageCollection.Items[i];
      RemovePageHeader(Page);
    end;
  end;
  HasPageHeaders := Show;
end;

Jetzt wollte ich den lokalen Record TempPageHeaderData in dem (klassen)globalen Record PageHeaderdata sichern zur späteren Verwendung. Das Problem ist, dass das Font-Objekt natürlich wieder freigegeben wird, so dass das Font-Objekt im globalen Record ungültig wird, da es ja nur ein Zeiger ist.

Meine Frage jetzt: Wie kann ich den Record kopieren und dabei das Objekt nicht verlieren?

[cruiser]

Diesen TFont erst im Destructor der Klasse freigeben.

Oder aber die Sachen wie Font-Name/Size/Color/Style separat abspeichern und temporäre TFonts damit füllen.

Assign statt einer Zuweisung wäre auch noch ne Möglichkeit.

Aber das einfachste ist vermutlich das erst später zu zerstören

[Luckie]

Ich denke auf deinen zweiten Vorschlag wird es wohl hinauslaufen, obwohl das natürlich ziemlich umständlich ist. Assign hatte ich auch schon mal probiert, aber das wollte nicht so recht, werde ich mir aber noch mal angucken.

[SirThornberry]

mit Welcher Delphiversion willst du das umsetzen? seit BDS2006 gibt es das Überladen von Operatoren auch in Delphi.

[cruiser]

Im Grunde brauchst du die temporary Font doch gar nicht, oder?

Delphi-Quellcode:

{...}
        
        TempPageHeaderData.Font := TFont.Create;
        try
          TempPageHeaderData.Font.Name := 'Tahoma';
          TempPageHeaderData.Font.Size := -10;
          TempPageHeaderData.Font.Color := clBlack;
          TempPageHeaderData.Font.Style := [];
        finally
        end;
{...}

[Luckie]

Ich benutze hier BDS2006. Allerdings habe ich mit dem Überladen von Operatoren noch nicht beschäftigt. Wie würde das denn in meinem Fall funktionieren.

@cruiser: Wenn dann müsste ich das bei PageHeaderData machen, denke ich. Ich werde mir das wohl noch mal genauer angucken.

[SirThornberry]

Auf folgender Seite Film Nummer 2. Besser kann mans nicht erklären.
http://www.delphipraxis.net/bds2006videos