auf Klassen-Variable innerhalb einer anderen Klasse zugreifen

[juergen]

Hallo,

schwierig zu beschreiben, ich versuch es mal (ganz rudimentär runtergebrochen).

Ich habe Unit1 und Unit2.
In der Unit1 habe ich eine Klasse definiert.
In der Unit2 habe ich eine andere Klasse definiert.

Nun erstelle ich zur globalen Verfügbarkeit in der Unit1 eine Instanz (Variable) für die Klasse aus Unit2.

Delphi-Quellcode:

   
VAR
  frm_Main: Tfrm_Main;
  JsonDatabaseParam: TDataBase; //meine Klassenvariable auf TDataBase aus Unit2

Ich muss nun von allen anderen Units auf diese Klasseninstanz "JsonDatabaseParam" zugreifen können.
Bis hierhin alles gut.

Ich muss aber auch innerhalb meiner anderen Klasse aus Unit1 in deren Proceduren auf "JsonDatabaseParam" zugreifen können.

Ich hoffe, dass das halbwegs verständlich ist.

Wie setzt man sowas um?

Vielen Dank schon mal vorab.