TPersistent in TComponent...

[Corelgott]

Hi @ all,

ich habe eine TPersistent (TBar) in einem TComponent (TFoo) untergebracht...
Das TPersistent (TBar) ist per property im pulished Teil. Das doofe ist bloß, dass bei meinem Persistent (TBar), welches eine Unterinstanz von meinem TComponent (TFoo) ist und aus irgend einem Grund ich nicht den richtigen Life-Cycle einhalte. Was zur Folge hat, das bei dem TPersistent (TBar) die Loaded methode nicht aufgerufen wird. Somit auch keine Daten vom OI an die Application zur Runtime kommen.

Hat da jemdand ne Idee für mich?

Delphi-Quellcode:

unit untFoo;

interface

uses
  Classes, SysUtils;

type
  TBar = class(TComponent)
  private
    FCaption : String;
  published
    property Caption : String read FCaption write FCaption;
  end;

type
  TFoo = class(TComponent)
  private
    FBar : TBar;
    procedure setBar(const Value: TBar);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Bar : TBar read FBar write setBar;
  end;

implementation

{ TFoo }

constructor TFoo.Create(AOwner: TComponent);
begin
  inherited;
  self.FBar := TBar.Create(Self);
end;

destructor TFoo.Destroy;
begin
  if assigned(self.FBar) then
    FreeAndNil(self.FBar);

  inherited;
end;

procedure TFoo.setBar(const Value: TBar);
begin
  self.FBar.Assign(Value);
end;

end.

Ich lege mal das Projekt-Geflecht bei.

Danke für's Nachdenken im Voraus!

cya

Corelgott

[LoCrux]

Hi Corelgott,

1. Deine TBar ist TComponent und NICHT TPersistent.
2. In TPersistent waere Loaded ehedem nicht implementiert.
3. Deine SetBar benoetigt dringend eine ueberarbeitung.
4. Notification Methode fehlt...
5. ..sehr unsicher zwecks Speicher freigabe...

Delphi-Quellcode:

constructor TFoo.Create(AOwner: TComponent); 
begin 
  inherited; 
  FBar := TBar.Create(Self);  // Hier TBar = Class(TComponent) !!!
  SetExternal := FALSE; 
end;
.
.
destructor TFoo.Destroy; 
begin 
  if (assigned(FBar) and not(SetExternal)) then FBar.Free;
  inherited; 
end;
.
.
procedure TFoo.SetBar(ABar:TBar);
begin
  if (FBar<>ABar)
  then begin

    if assigned(FBar)
    then begin 
      if SetExternal 
      then FBar.RemoveFreeNotification(Self)
      else FBar.Free;  
    end;

    if assigned(ABar)
    then begin
      FBar := ABar 
      FBar.FreeNotification(Self);
      SetExternal := TRUE; // SetExternal = Merker ob eine andere TBar gesetzt wurde als jene, die bei Create erzeugt wurde.
    end
    else FBar := NIL {= ABar};

  end;
end;
.
.
procedure TFoo.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if (Operation=opRemove)
  then begin
    if (AComponent=FBar) and SetExternal
    then begin 
      // Neue TBar erzeugen und setzen
      FBar := TBar.Create(Self);
      SetExternal := FALSE;
    end
  end;
  inherited;
end;

..ist mal so ins Blaue-Gehackt... sollte aber funzen...

[Corelgott]

Hi LoCrux,

erst mal danke für deine Antwort!
Das TComponent nicht TPersistent sein soll wundert mich ziemlich...
Ich hatte folgende Struktur im Kopf...

Delphi-Quellcode:

  TObject
  +- TPersistent
     +- TComponent
        +- TControl
           +- TGraphicControl
           +- TWinControl
              +- TCustomControl

Und irgendwie steht ja in der Classes.pas

Delphi-Quellcode:

TComponent = class(TPersistent, IInterface, IInterfaceComponentReference)

Zeile (1289)

Dass bei meiner TFoo ne ganze menge Fehlt, wie z.B. ordentliche Behandlung von Notfication: Damit hast du völlig recht... Hatte das Bloß für dieses Beispiel ein bissel gespart.

Also noch bin ich da nicht so ganz überzeugt, dass es daran liegt...
Oder liegt das nur an der mangelden Notification (Dann verstehe ich den Life-Cycle wohl nicht richtig...)

cya

Corelgott

[LoCrux]

Zitat:

ich habe eine TPersistent (TBar) in einem TComponent (TFoo) untergebracht

Sieh was Du geschrieben hast. Das TComponent von TPeristent abgeleitet ist ...klar.
Aber deswegen ist TPeristent nicht gleich TComponent. Beschaeftige dich noch mal mit der Stuktur
von Objektorientiertem Programmieren (empfehle smalltalk).

[Corelgott]

Hi LoCrux,

es wäre nett, wenn du mir vll einmal kurz erklären könntest, warum TComponent bitte nicht die funktionalität von TPersistent haben soll und weswegen dort bitte die Sreaming funktionalität bzw. das Laden der Daten des OI nicht mehr gehen soll.

Deine generelle Aussage, nach dem Motto versteht erst mal was OOP ist, ist hier wenig hilfreich.

Corelgott

[stahli]

Könnte Dir SetSubComponent helfen?

[Corelgott]

Hi Stahli,

hervorragend! Danke! Genau das war es!

Aller besten Dank!

cya

Corelgott