Class Var vs Var

[Perlsau]

Gesetzt den Fall, ich benötige einige Variablen global im ganzen Programm und richte mir dafür eine Klasse ein, die von allen anderen Units, die diese Variablen benötigen, verwendet wird. Wenn ich nun z.B. unter Public eine Variable namens AppendModus : Boolean; deklariere, hat doch jede Unit, die eine Instanz dieser Klasse erzeugt, auch eine andere Instanz dieser Variablen. Nun habe ich kürzlich irgendwo in den Weiten des Forums gelesen, daß man zu diesem Zweck Klassenvariablen deklariert:

Delphi-Quellcode:

TYPE
  TGlobalix = CLASS
    PRIVATE { Private-Deklarationen }

    PUBLIC  { Public-Deklarationen  }
      Class Var FehlerMeldung,
                DB_Pfad,
                Pfad_Main,
                Modustext       : String;

      Class Var StartModus,
                AppendModus,
                EditModus       : Boolean;
  END;

Dazu hab ich mehrere Fragen:

1. Verfügt jede Instanz dieser Klasse über dieselben Werte der in Class Var deklarierten Variablen?

2. Muß ich vor jeder Deklaration Class Var schreiben oder sind alle Variablen, die ich nach der Anweisung Class Var hinschreibe, Klassenvariablen?

3. Sollte man hier besser mit Properties arbeiten und dann nur über die Setter- und Getter-Methoden setzen und abfragen?

Ich habe bereits damit experimentiert und z.B. den AppendModus von FormMain aus auf True gesetzt, dann vom Datenmodul aus abgefragt und das korrekte Resultat erhalten. Bin mir allerdings nicht sicher, ob man sich darauf verlassen kann ...

[Stevie]

Class vars sind nix anderes als globale Variablen mit nem zusätzlichen Scope - daher:
1. Ja - das sie ja an die Klasse gebunden sind und nicht an die Instanz
2. Nein, solange keine Methoden oder Sichtbarkeitsmodifizierer kommen sind alle nachfolgenden class vars.
3. Ich persönlich verwende für Felder nur private oder protected, daher Getter und Setter für Zugriff von außen.

[Perlsau]

Zitat von Stevie:

Class vars sind nix anderes als globale Variablen mit nem zusätzlichen Scope - daher:

Ähh ... was bedeutet Scope?

Zitat von Stevie:

1. Ja - das sie ja an die Klasse gebunden sind und nicht an die Instanz

Das ist erfreulich

Zitat von Stevie:

2. Nein, solange keine Methoden oder Sichtbarkeitsmodifizierer kommen sind alle nachfolgenden class vars.

Auch das erleichtert die Arbeit sehr

Zitat von Stevie:

3. Ich persönlich verwende für Felder nur private oder protected, daher Getter und Setter für Zugriff von außen.

Okay, dann sieht das in Zukunft so bei mir aus:

Delphi-Quellcode:

TYPE
  TGlobalix = CLASS
    PRIVATE { Private-Deklarationen }
      Class Var fFehlerMeldung,
                fDB_Pfad,
                fPfad_Main,
                fModustext : String;
                fStartModus,
                fAppendModus,
                fEditModus : Boolean;

      Function GetfFehlerMeldung : String;
      Procedure SetfFehlerMeldung(Const Value : String);

    PUBLIC { Public-Deklarationen  }
      Property Fehlermeldung : String read GetfFehlerMeldung  write SetfFehlerMeldung;
      ...
  END;

IMPLEMENTATION
{TGlobalix}

Function TGlobalix.GetfFehlermeldung : String;
begin
  Result := fFehlermeldung;
end;

Procedure TGlobalix.SetfFehlerMeldung(Const Value : String);
begin
  fFehlerMeldung := Value;
end;

...

Die Properties, die auf Klassenvariablen zugreifen, muß man vermutlich nicht besonders kennzeichnen, oder?

[Stevie]

Zitat von Perlsau:

Ähh ... was bedeutet Scope?

Scope

P.S. Meine Predigt, warum globale Variablen schlecht sind, spar ich mir heute mal

[Perlsau]

Zitat von Stevie:

Scope

Merci, da hätt ich auch selber draufkommen können, bei Widipedia zu suchen

Zitat von Stevie:

P.S. Meine Predigt, warum globale Variablen schlecht sind, spar ich mir heute mal

Du meinst, globale Variablen wären in jedem Fall und unter allen Umständen "schlecht" und in allen Fällen grundsätzlich vermeidbar? Wenn ja, wozu gibt's die dann überhaupt? Im großen & ganzen stimme ich den zahlreichen Plädoyers gegen den Einsatz globaler Variablen durchaus zu, aber doch nicht grundsätzlich

[Bjoerk]

Dein TGlobalix Beispiel ist sozusagen ja nur die akademische Variante von proceduralen globalen Variablen. Globale Klassen sind eher sinnvoll für Klassen vom "Typ SysUtils". Globale Variablen haben mich mal fast meine Existenz gekostet. Ernsthaft, ich war kurz vom Hinschmeißen. Mein Code (ca. 250.000 Zeilen) war schlicht nicht mehr wartbar. Hat ein Jahr gedauert bis ich die eliminiert hatte (Ohne Christian und Detlef hätte ich’s wohl überhaupt nicht geschafft). Seither versuche ich mich im Wesentlichen an die "Guinnes Directive" zu halten: "Variablen so weit verstecken wie möglich".

[Stevie]

Zitat von Perlsau:

Du meinst, globale Variablen wären in jedem Fall und unter allen Umständen "schlecht" und in allen Fällen grundsätzlich vermeidbar? Wenn ja, wozu gibt's die dann überhaupt? Im großen & ganzen stimme ich den zahlreichen Plädoyers gegen den Einsatz globaler Variablen durchaus zu, aber doch nicht grundsätzlich

Ich wage, zu behaupten, dass es theoretisch ganz ohne geht - allerdings steht dem meist die Praxis (und bestehender Code) gegenüber und in manchen Fällen ist es einfacher und pragmatischer, eine globale Variable zu benutzen, anstatt das ganze System von links auf rechts zu krempeln. Dennoch sollte man manchmal zweimal drüber nachdenken, ob sich das dargestellte Problem nicht anders lösen lässt.

[Bjoerk]

Du kannst auch auf eine Instanz ganz verzichten und einfach TGlobalix.AppendModus verwenden. Dasselbe auch für Methoden (class procedures, class functions). Properties ja (hier class property).

Edit:
Sehe gerade deinen Code. Wie gesagt hier class property und die Getter als class function und die Setter als class procedure oder auch so:

class property Fehlermeldung : String read fFehlerMeldung write fFehlerMeldung;

[Perlsau]

Du meinst, ich muß auch die jeweiligen Getter- und Setter-Methoden, die auf Klassenvariablen zugreifen, und die jeweiligen Properties als Klassenmethoden bzw. Klassenproperties deklarieren?

[Bjoerk]

Ja. Manchmal will der Compiler auch ein ; static; dahinter.