Objekt automatisch erzeugen

[SyntaxXx]

Guten Tag zusammen,
ich habe eine Unit ohne Form, die diverse Methoden bereitstellen soll.
In mehreren dieser Methoden brauche ich immer wieder mal ein TSQLConnection Objekt

Nun habe ich also im privaten Teil der Unit eine Variable von diesem Typen deklariert.
Allerdings kann ich diese dort nicht initialisieren.
Ich finde es unschön, das in jeder Methode zu machen, wo ich das Objekt brauche.

Ich suche also nach einer Möglichkeit, beim laden dieser Unit automatisch ein TSQLConnection Objekt zu erzeugen.

[mkinzler]

Entweder im initialization Abschnitt oder man verwendet ein DataModule

[Aviator]

Wenn du das in einer Klasse machst, dann schreib doch den Create Aufruf des Objektes in den Constructor der Klasse.

[BUG]

Abgesehen davon ist das ein klassisches Beispiel für das Singleton-Pattern. Das Initialisieren verpackst du in eine statische Methode (zB. getInstance) die entweder die vorhandene Instanz zurückgibt oder eben eine neue erstellt.

[Popov]

Zitat:

Zitat von SyntaxXx (Beitrag 1305851)

Objekt automatisch erzeugen

Ich verstehe den Titel anders als den Text darunter. Den Titel verstehe ich so, dass du in einer Unit ein Objekt nutzen willst und fragst wo du es erzeugen kannst.

Sollte ich dich richtig verstanden haben, hier ein Beispiel in dem ein TStringList Objekt erzeugt wird.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Classes;

  procedure TestAddStrings(s: String);

implementation

var
  sl: TStringList;

procedure TestAddStrings(s: String);
begin
  sl.Add(s)
end;

initialization
  sl := TStringList.Create;

finalization
  sl.Free;

end.

//EDIT:

Ups, sehe gerade, dass mkinzler es auch schon erwähnt hat.

[Dejan Vu]

Zitat:

Zitat von BUG (Beitrag 1305872)

Abgesehen davon ist das ein klassisches Beispiel für das Singleton-Pattern.

Und das ist i.A. keine gute Idee, so ein Singleton. Jedenfalls sagt das der Software-Ästhet.
Aber hier würde ich das auch in Erwägung ziehen (weil man sonst die ganze SW umbauen müsste). Allerdings findet der TE es blöd, die Connection immer explizit zu erzeugen.

Ich würde mir ja eine Klasse bauen, die meine Verbindungen verwaltet. So könnte ich beliebig viele Connections erzeugen (z.B. um in Threads Daten parallel zu laden oder mit unterschiedlichen Datenbanken zu arbeiten etc.).

Delphi-Quellcode:

TConnectionManager = class
Public
  Function GetConnection : IConnection;
  Procedure Release (aConnection : IConnection);
End;

...
  myConnection := connectionManager.GetConnection;
  Try
    ...
  Finally
     connectionManager.Release(myConnection);
  end;