Variablen/Objecte Applicationsweit verfügbar machen

[Hobbycoder]

Hi,

wenn ich z.B. eine ObjectList in der Main erzeuge, auf diese aber auch von weiteren Formen zugreifen will (z.B. zum Füllen einer Combobox), dann muss ich die immer an/durch alles Units durchreichen.
Zur Zeit mache ich das so:
UnitMain:

Delphi-Quellcode:

private
  TestListe: TTestListe;

Procedure Create;
  TestListe:=TTestListe.create;

procedure Destroy;
  TestListe.Free;

Unit A:

Delphi-Quellcode:

public
  TestListe: TTestListe;

und irgendwo im Code setzte ich dann UnitA.Testliste=Main.Testliste.

Sieht jetzt beschissen aus, aber ihr wisst was ich meine. Wenn ich jetzt in UnitA irgendwas mit der TestListe mache, ist das halt die aus der MainUnit.

Wie kann ich das besser machen, so dass die TestListe auf der Mainunit in allen anderen Units zur Verfügung steht, ohne dass ich sie hier so durchreiche und ohne dass ich in UnitA die UnitMain in die Uses aufnehmen müsste (will ich nämlich nicht).

[DeddyH]

Ich weiß ja nicht, ob ich Dein Anliegen richtig verstanden habe, aber Du könntest diese Liste ja in einer eigenen Unit erzeugen und wieder freigeben. Allerdings müsstest Du dann wiederum diese Unit statt der MainUnit einbinden.

[hoika]

Hallo,
mit so einer GlobalsUnit muss aber nichts "durchgereicht werden",
sondern immer nur diese eine Unit.

[Hobbycoder]

Etwas so:

Delphi-Quellcode:

unit Unit1;

interface

uses System.Classes, System.Generics.Collections;

type
  TTestObject=class
  private
    Fblabla: string;
    procedure Setblabla(const Value: string);
  published
    property blabla: string read Fblabla write Setblabla;
  end;

  TTestList=class(TObjectList<TTestObject>);

var
  TestListe: TTestList;

implementation

{ TTestObject }

procedure TTestObject.Setblabla(const Value: string);
begin
  Fblabla := Value;
end;

initialization
  TestListe:=TTestList.Create(True);

finalization
  TestListe.Free;

end.

Und das reicht?

[Hobbycoder]

Hab's grad mal ausprobiert. So wie oben hat es soweit gut funktioniert.

Rein theoretisch könnte ich dann diese Unit auch in einen thread aufnehmen und auch von dort auf das object zugreifen. Müsste dieser Zugriff ebenfalls über synchronize abgesichert werden? oder reichte es, dass der Zugriff mittels Getter/Setter in der Unit geregelt ist?

[a.def]

Zitat:

Variablen/Objecte Applicationsweit verfügbar machen

Ich benutze dafür immer Record-Typen wo alle Variablen, Objekte usw drin sind.
Keine Setter, keine Getter, nix. Einfach nur ein Record.

[Hobbycoder]

Records würden natürlich auch gehen. Obiger code ist ja nur ein Beispiel.
Das Object im aktuellen Projekt existiert bereits und enthält noch einige Listen, etc. Von daher werde ich das so lassen.

Zitat von a.def:

Keine Setter, keine Getter, nix. Einfach nur ein Record.

Das beantwortet aber meine Frage nicht.