Sichtbarkeitsmodifizierer in Forms / Singleton

**HeinzJ**

Welche Sichtbarkeit haben die Members und Variablen die von Delphi defaultmäßig NICHT als private oder public deklariert werden. Bei Einordnung der Create u. DataModuleCreate Procedure in einen protected Abschnitt wirft mein Peogramm Fehler. Mein Ziel ist es diese beiden Proceduren zu verbergen und den Aufruf nur noch per GetInstance (Singleton Muster) zu realisieren.

Code ohne Fehler

zusammenfalten · markieren

Delphi-Quellcode:

			type

  T_dmConnection = class(TDataModule)

    ADOConSRVCharter: TADOConnection;

    ADOConVesseldatabase: TADOConnection;

    constructor Create (AOwner: TComponent); override;  

    procedure DataModuleCreate(Sender: TObject);        

  strict private

  class var

    FInstance:T_dmConnection;

  public

    class function GetInstance: T_dmConnection;

  end;

Code mit Fehler

zusammenfalten · markieren

Delphi-Quellcode:

			type

  T_dmConnection = class(TDataModule)

    ADOConSRVCharter: TADOConnection;

    ADOConVesseldatabase: TADOConnection;

  protected

    constructor Create (AOwner: TComponent); override;  

    procedure DataModuleCreate(Sender: TObject);        

  strict private

  class var

    FInstance:T_dmConnection;

  public

    class function GetInstance: T_dmConnection;

  end;

Sichtbarkeitsmodifizierer in Forms / Singleton

Sichtbarkeitsmodifizierer in Forms / Singleton

Forumregeln