Freigabe von verknüpften Komponenten

[Alex_ITA01]

Da jede Komponente eigenständig lauffähig ist und nicht die andere als Voraussetzung braucht (und auch keine Speicherlecks verursacht), glaube ich spontan nicht, dass die Komponenten falsch programmiert sind. Ich gucke mal, ob irgendwo von der einen hart auf die andere referenziert wird und etwas freigegeben wird.

Grüße

[hoika]

Hallo,

zuerst:
Sind das Deine eigenen Komponenten?
Nimmst du FastM4 und hast beim Linker die Debug-Optionen (TD32 und externe DebugSymbole) an?


dann 1:
Mach mal ein neues Projekt 1, dann beide Komponenten drauf OHNE die Verknüpfung.

dann 2:
Mach mal ein neues Projekt 2, dann beide Komponenten drauf MIT der Verknüpfung.

dann 3:
Mach mal ein neues Projekt 2, dann beide Komponenten drauf, Verknüpfung im Code (FormCreate)


Damit solltest du dem Speicherschlingel doch auf die Spur kommen.


Heiko

[Alex_ITA01]

Danke Heiko für die Anregung. Das werde ich mal probieren!

[himitsu]

Selbstgebaute Komponenten?

Die entwickelt man natürlich richtig und nutzt die Notifications von TComponent, damit sich Verlinkungen aufräumen.
Beispiel: TDBGrid.DataSource ... das Property wird automatisch nil, wenn man die TDataSource freigibt.

Delphi-Quellcode:

type
  TMyComponentA = class(TComponentDescendant)
  private
    FLink: TMyComponentB;
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    property Link: TMyComponentB read FLink write FLink;
  end;

procedure TMyComponentA.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (FLink = AComponent) then
    FLink := nil;
end;