Zurück greifen auf "Mutter-Objekt"

[monty.ms]

Hallo, ich hab mal wieder ein kleines Problem:

Ich hab zwei Objekte (ObjektA und ObjektB). ObjektA erstellt für sich ein ObjektB. Im ObjektB soll ein Timer laufen und nach Ablauf, die Ergebnisse an ObjektA zurück geben.

Beide Klassen liegen bei mir aus Übersichtsgründen in verschiedenen Units.

Nun zu meiner Frage: Wie kann ich das ObjektA von B aus ansprechen?
Die Unit in die uses einfügen funktioniert ja nur in eine Richtung. In meinem Fall steht KlasseB bereits in den uses der anderen Unit, damit ich ein Objekt der KlasseB überhaupt erstellen kann. Nun kann ich zwar dem erstellten Objekt einen Pointer von sich selber mit geben, aber wie soll er diesen verwenden, wenn er die Klasse nicht kennt, auf die der Pointer zeigt.

Ich könnte zwar zur Not noch den Timer auf ObjektA legen, aber da ich in meinem Programm noch ein anderes Objekt dazwischen habe, wäre das ein großer Umweg. Darum würde ich es lieber so belassen.

Ich bedanke mich schonmal für jegliche Hinweise

Edit:Hab mich etwas schwammig oben ausgedrückt:

Delphi-Quellcode:

Unit1

uses KlasseB

KlasseA
 - ObjektB: KlasseB
 - ...

----------------

Unit2

uses ...

KlasseB
 - Owner: TObject
 - Timer: TTimer
 - ...

[Neutral General]

Hi,

Was du in deinem Fall glaube ich machen könntest wäre das hier:

Delphi-Quellcode:

Unit unit1;

interface

uses Unit2;

type
  TObjectA = class
    b: tObjectB;
    procedure DoSomething;
  end;

Delphi-Quellcode:

Unit unit2;

interface

type
  TObjectB = class
    a: Pointer;
    procedure AccessA;
  end;

implementation

uses Unit1;

procedure TObjectB.AccessA;
var a2: TObjectA;
begin
  a2 := TObjectA(a);
  a2.DoSomething;
end;

Gruß
Neutral General

[monty.ms]

Ja genau sowas suche ich

Vielen Dank!

[jottkaerr]

Wie wäre es mit Events?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Classes, Unit2;

type
  TObjectA = class(TObject)
  private
    FB: TObjectB;
    procedure FB_OnDone(Sender: TObject);
  public
    constructor Create;
    procedure Work;
  end;

implementation

constructor TObjectA.Create;
begin
  inherited Create;
  FB := TObject.Create;
  FB.OnDone := FB_OnDone;
end;

procedure TObjectA.FB_OnDone(Sender: TObject);
begin
  // Zugriff auf Methoden oder Eigenschaften von FB, z.B.:

  if FB.Success then
  begin
    // ...
  end;
end;  

procedure TObjectA.Work;
begin
  FB.Run;
end;

Delphi-Quellcode:

unit Unit2;

interface

uses
  Classes;

type
  TObjectB = class(TObject)
  private
    FOnDone: TNotifyEvent;
    FSuccess: Boolean;
    procedure Done(Sender: TObject);
  public
    procedure Run;
    property Success: Boolean read FSuccess;
    property OnDone: TNotifyEvent read FOnDone write FOnDone;
  end;

implementation

procedure TObjectB.OnDone;
begin
  if Assigned(FOnDone) then
    FOnDone(Self);
end;  

procedure TObjectB.Run;
begin
  // Mache irgendwas ...
  FSuccess := True;

  Done;
end;

Dadurch muss TObjectB nichts von TObjectA wissen und Du hast die beiden Klassen soweit wie möglich entkoppelt.

jkr