Eigene Komponete / Darstellungsfehler?!

[FAM]

Zitat von DeddyH:

Damit hast Du Dir aber potentielle Speicherlecks eingebaut. Es wäre besser, nicht die FAMPanels direkt zuzuweisen, sondern nur die Properties für die selbst erstellten Instanzen zu übernehmen (Stichwort Assign). Ansonsten überschreibst Du Dir die Instanzvariablen und hast damit keine Möglichkeit mehr, sie später wieder freizugeben.

kannst du das bitte ein wenig mit hilfe von ein stück sourcecode mir verdeutlichen ?

reicht das nicht?

Delphi-Quellcode:

destructor FAMCard.Destroy;
begin
  inherited;
  FHeader.Free;
  FContent.Free;
  FFooter.Free;
end;

[Uwe Raabe]

Das Problem sind die Setter:

Delphi-Quellcode:

procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  FHeader := Value;
end;

Hier ist der vorige Inhalt von FHeader immer noch instanziert, wird aber nie mehr freigegeben. (Nie, abgesehen davon, daß bei Programmende der Speicher natürlich schon wieder freigegeben wird)


Alternativ:

Delphi-Quellcode:

procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  FHeader.Free;
  FHeader := Value;
end;

oder

Delphi-Quellcode:

procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  FHeader.Assign(Value);
end;

[himitsu]

Dank des Owners wird das schon vorher freigegeben.

Zitat von Uwe Raabe:

Delphi-Quellcode:

procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  FHeader.Free;
  FHeader := Value;
end;

Und was wenn man die selbe Instanz reingibt?

Zitat von Uwe Raabe:

Delphi-Quellcode:

procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  if FHeader <> Value then
    FreeAndNil(FHeader);
  FHeader := Value;
end;

// oder besser so
procedure FAMCard.SetHeader(const Value: FAMPanel);
begin
  if Assigned(FHeader) and (FHeader.Owner = Self) then
    FreeAndNil(FHeader);
  FHeader := Value;
end;

Wobei hier dein angesprochenes Problem erst Recht gilt, denn wer gibt dann Value frei, wenn die Komponente freigegeben wird.

Aber grundsätzlich bin ich auch für die Assign-Variante, denn das ist eine interne Komponente und die sollte/darf einfach nicht von außen direkt geändert werden können.

PS: Eigentlich braucht man hier garkeinen Setter, denn zum Laden der Property nimmer der DFM-Loader den Getter und weist die Werte den Property der existierenden Instanz zu.
Aber der DFM-Writer ist schon immer totaler Schrott, weil er bei Objekten einen Setter verlangt, denn ohne Diesen werden die Property nicht gespeichert.

[Uwe Raabe]

Zitat von himitsu:

Wobei hier dein angesprochenes Problem erst Recht gilt, denn wer gibt dann Value frei, wenn die Komponente freigegeben wird.

Du hast vollkommen Recht: Ownership ist hier das eigentliche Kriterium.

[Sir Rufo]

Crosspost http://forum.delphi-treff.de/index.p...442#post442442

[FAM]

Zitat von Sir Rufo:

Crosspost http://forum.delphi-treff.de/index.p...442#post442442

hatte es auch hier nachgefragt und eine antwort erhalten

http://stackoverflow.com/questions/2...07880#27607880