Verhindern von Instanzierung eines Objekts mit Create

[warheart]

Hallo Delphi Gemeinde

Meine erste Frage hier dreht sich um einen relativ komischen Wunsch, nicht so alltäglich.

Ich habe eine Klasse gemacht, die alle Methoden static hat und alle Membervariablen mit class var deklariert hat. Das Ganze ist nach diesem Beispiel von http://dn.codegear.com/article/34324 aufgebaut:

Delphi-Quellcode:

type
  TMyClass = class
    strict private
      class var
        FX: Integer;
    strict protected  

    // Note: accessors for class properties must be declared class static.

      class function GetX: Integer; static;
     class procedure SetX(val: Integer); static;
    public
      class property X: Integer read GetX write SetX;
     class procedure StatProc(s: String); static;
  end;

TMyClass.X := 17;
TMyClass.StatProc('Hello');

Nun ist es allerdings immer noch möglich, den Constructor mit Create aufzurufen. Um allen potenziellen Benutzern der Klasse klar zu machen, dass man davon keine eigenen Instanzen machen darf, möchte ich das aufrufen von Create verbieten. Ist das irgendwie möglich? :gruebel:

Beispiel

Delphi-Quellcode:

TMyClass.StatProc('Hello'); // soll funktionieren
myObj := TMyClass.Create; // soll nicht funktionieren

Danke und Gruss an die Welt

[s-off]

Hallo,

anscheinend geht soetwas nicht; hatte das Problem auch schonmal -> hier

[Muetze1]

Schmeiss einfach eine Exception im Konstruktor. Dann wird die Erstellung des Objektes abgebrochen und es ist wie gewünscht.

[warheart]

Das gefällt mir eben auch nicht. Ich möchte wenn schon einen Compiler-Fehler. Weil sonst vergisst plötzlich jemand die Exception ab zu fangen und zu behandeln. Dann gibts plötzlich unschöne Effekte...

Ich habe auch schon mit einem abstrakten Constructor probiert

Delphi-Quellcode:

Constructor Create; virtual; abstract

Das gibt aber eben auch eine Exception und nicht einen Compiler-Fehler.

[Bernhard Geyer]

Zitat:

Zitat von warheart

Das gefällt mir eben auch nicht. Ich möchte wenn schon einen Compiler-Fehler. Weil sonst vergisst plötzlich jemand die Exception ab zu fangen und zu behandeln. Dann gibts plötzlich unschöne Effekte...

Der Entwickler wird doch wohl schon mindestens 1 * seinen Code aufrufen.
Das Problem bei Delphi ist das die abstrakt-Definition nicht bei der Klassendefinition möglich ist sondern nur auf Methodenebene.

[warheart]

Naja, ich habe mich nun entschieden, das ganze anders zu lösen. Und zwar habe ich ein globales Objekt erstellt (wird für Logging verwendet). So kann ich auch sicher sein, dass es das Objekt nur einmal gibt.

Danke jedenfalls für die Kommentare. Gruss

[phXql]

Was passiert, wenn man einen privaten Konstruktor definiert?

// Edit: Ach vergesst es, grad den anderen Thread gesehen und gelesen.. Da wurde ja genau das versucht.

[FAlter]

Hi,

der Thread ist zwar schon etwas älter. aber irgendwie ist mir gerade dazu eine Idee gekommen:

Ein abstrakter Konstruktor kann nicht aufgerufen werden! Das gibt sogar ne Warnung (sowie Exception zur Laufzeit), und mit DDevExtensions wird ein Fehler zur Compilezeit draus ;)

Naja, aber ne bessere Idee hab ich dann doch nicht.

Mfg
FAlter

[s-off]

Zitat:

Zitat von FAlter

Ein abstrakter Konstruktor kann nicht aufgerufen werden! Das gibt sogar ne Warnung (sowie Exception zur Laufzeit), und mit DDevExtensions wird ein Fehler zur Compilezeit draus ;)

Hat wohl den gleichen Effekt wie 'strict private' :?

[FAlter]

Hi,

ich dachte, es wurde eine Lösung gesucht, die nicht compiliert. Bitte, man muss nur Warnungen als Fehler interpretieren, und das geht mit DDevExtensions. Siehe Bild.

Mfg
FAlter