Instanz von Object A in Object B nutzen

[SimStar001]

Hallo, ich weiß im Moment nicht so richtig weiter.
Ich habe folgendes Problem:

Ich habe ein Object A die zur Laufzeit meines Programms erzeugt wird. Ein weiteres Object B wird auch zur Laufzeit erzeugt und soll Daten von Object A nutzen.

Eine Möglichkeit ist es ja einfach in Object B ein Object A zu erzeugen und dieses dann zu übergeben. Aber dann wird ja nur der Zustand von Object A zum Zeitpunkt der Übergabe an B übergeben.
Ändert sich etwas in Object A so ist diese Änderung ja nicht in Object B enthalten.

Wie stellt man denn das ganze nun an, dass ich Object A in Object B nutzen, bzw. auf die Daten zugreifen kann?

Eine Lösung habe ich, die ich mal kurz darstelle:

Klasse A:

Delphi-Quellcode:

unit Klasse_A;

interface

Type TKlasseA = class
  private
  public
  end;

implementation

end.

Klasse B:

Delphi-Quellcode:

unit Klasse_B;

interface

uses Klasse_A,Form1;

Type TKlasseB = class
  private
  public
  end;

implementation

procedure MachEtwas;
begin
  x := Form1.ObjectA.Wert;
end;

end.

Anwendung

Delphi-Quellcode:

...
var ObjectA : TKlasseA;
    ObjectB : TKlasseB;


...

Wie kann ich denn nun das implementieren der Ganzen Form1 in KlasseB umgehen? Gibt es da eine Möglichkeit dies zu bewerkstelligen?

Ich hoffe es ist verständlich auf was ich hier hinaus will und was genau mein Problem ist.

Ich hoffe Ihr könnt mir da weiterhelfen.

MfG Marco

[Lemmy]

Objekte in Delphi sind im Grunde Zeiger (Pointer) auf die Speicheradresse unter der die Informationen liegen. Bei einer Zuweisung:

Delphi-Quellcode:

var A, B: TFoo;
begin

 A := TFoo.Create;
 B := A;

wird nicht der Inhalt des Objektes übergeben, sondern die SPeicheradresse, somit wird bei

Delphi-Quellcode:

  A.Name := 'Hallo';

  ShowMessage (b.Name + ' Welt!');

Hallo Welt ausgegeben, eben weil hier die Adresse ausgetauscht werden.

um ein Objekt zu kopieren wird in Delphi Assign/AssignTo verwendet und muss für jede Klasse entsprechen überschrieben werden (welche Eigenschaften kopiert werden sollen.

Also musst Du lediglich bei dir

Delphi-Quellcode:

type
   A = class (TObject)
   public
    proberty B: TB read FB write FB;
  end;

machen und du hast dann nach der Zuweisung einer Instanz von B immer Zugriff auf die aktuellen Daten

[SimStar001]

Vielen Dank für die Hilfe, das war genau wonach ich gesucht habe. Funktioniert einwandfrei so wie ich mir das vorgestellt habe.

MfG Marco