Ist das ein Pattern?

[himitsu]

Und was macht die öffentliche Funktion oftmals, bei den meisten Singletonpattern?
Die aggregiert einverleibt sich eine Klasseninstanz.

Wenn ich mir jetzt das auf'm Wiki nehm,

Zitat von http://en.wikipedia.org/wiki/Lazy_initialization:

Code:

    private static $types = array();
 
    public static function getFruit($type) {
        // Lazy initialization takes place here
        if (!array_key_exists($type, self::$types)) {
            return self::$types[$type] = new Fruit($type);
        }
 
        return self::$types[$type];
    }

das Array und Static wegmach,

Code:

    private $types;
 
    public function getFruit {
        // Lazy initialization takes place here
        if (!self::$types) {
            return self::$types = new Fruit;
        }
 
        return self::$types;
    }

dann komm ich auf diesen Code.

Zitat von Jumpy:

Delphi-Quellcode:

private fAndereKlasse:TAndereKlasse

TIrgendeineKlasse.getAndereKlasse:TAndereKlasse;
begin
  if fAndereKlasse=nil then
    fAndereKlasse:=TAndereKlasse.Create;
  Result:=fAndereKlasse;
end;

Sehr eigenartig.

[Codewalker]

Zitat von himitsu:

und Static wegmach

Möhp! Genau das ist ja der Trick beim Singleton, dass es nur eine Instanz geben darf. Wenn du das static wegmachst, gibt es für jede Instanz der Klasse nur eine Instanz (und das ist was ganz anderes)

[himitsu]

In Delphi muß es nicht "class static" sein, es reicht schon "class", oder eine ordinäre Prozedur.
Wenn TIrgendeineKlasse die einzige vorhandene Instanz wäre, dann ist AndereKlasse implizit ebenfalls Alleine (ein Singleton).
Und ich hab nie behauptet das währe schon ein Singleton. (noch'n bissl aufmotzen und fert'sch)

Der Billigprogrammierer pappt diesen Code in seine TForm1, und schon hat er ein Singleton.
(solange er nicht auf die Idee kommt TForm1 mehrmals zu erzeugen, aber ist dann meist nur ein Bug und keine Absicht )


Halten wir es also fest:
- es ist noch kein Singleton-Pattern (bissl erweitert wird es vielleicht mal Eines)
- es ist noch kein Lazy-Pattern (bissl erweitert wird es vielleicht mal Eines)
- es ist was Anderes

Zitat:

Wenn du das static wegmachst, gibt es für jede Instanz der Klasse nur eine Instanz (und das ist was ganz anderes)

[Iwo Asnet]

Noch mehr Senf:

Früher, als es noch kein OOP gab, hieß das "Fetch on Demand".

[Jumpy]

1. Ich bin nicht Popov. Aber das sei euch verziehen, Sir.

2. Danke für die Infos.

Ich hab als ich die Frage stellte im Stillen bei mir gedacht, ob das in Richtung Singelton geht, wollte die Frage aber offen halten. Hab somit gelernt, das ein Singelton doch noch etwas mehr ist und den schönen Begriff Lazy Load/Creation/Initialisation neu gelernt, bzw. das Konzept dahinter.

Dazu noch 'ne Frage:
if fKlasse<>nil then... vs. if Assigned(fKlasse) then...
Was ist genau da der Unterschied, ich vermute mal, das letzteres besser ist, wenn ich auch nicht weiß, warum?

Danke,
Jumpy

[DeddyH]

System.Assigned, da steht' s

[Stevie]

Zitat von Jumpy:

Was ist genau da der Unterschied, ich vermute mal, das letzteres besser ist, wenn ich auch nicht weiß, warum?

Gibt keinen unterschied, Assigned ist eine built-in inline Function (manche sagen dazu Compilermagic, weil man den Source davon nicht in der System.pas sieht) und erzeugt denselben assembler Code wie ein Vergleich auf nil.

Zitat von Delphi Dokumentation:

Der Aufruf Assigned(P) entspricht bei einer Zeigervariablen dem Test P <> nil und bei einer Prozedurvariablen dem Test @P <> nil.

Assigned kann allerdings nicht in allen Fällen verwendet werden - zum Beispiel bei dem Ergebnis einer Funktion, da man dieses nicht über einen var Parameter weitergeben kann (E2036 Variable required.)

[Jumpy]

OK, danke.
Sorry für das späte Antworten, musste noch schnell mein FIAE Abschlussarbeit, der Grund meiner Fragen in den letzten Wochen, fertig dokumentieren und zur IHK hochladen. Mal sehn was es wird, hauptsache erstmal fertig.

[DeddyH]

Dann drücken wir doch mal die Daumen

[himitsu]

Wofür Assigned einen Vorteil bietet.
> Methodenzeiger

Diese bestehen intern aus 2 Zeigern, also ist ein direktes Prüfen auf nil nicht möglich.
Und wöllte man die internen Zeiger prüfen, dann müßte man sich den Methodenzeiger erstmal in einen lesbaren Typen casten, welcher Zugriff auf die beiden Felder bietet.
> Datenzeiger (Objektinstanz) und Codezeiger (Zeiger auf die Methode/Prozedur)