lokale Variablen mit globaler Lebensdauer?

[Sidorion]

Was haltet Ihr denn von diesem Konstrukt?:

Delphi-Quellcode:

Unit Foo;
Interface
Function Foo(_someParameters): ResultType;
Implementation
Var
  Bar: Integer=0; //hier die GloKale Variable

Function Foo(_someParameters): ResultType;
Begin
  Inc(Bar);  //hier der Zugriff drauf
  DoSomething;
End;

End.

ausser diesem Zeug kommt NICHTS in die Unit und schon hasst Du eine Globale Variable, die nur der Funktion bekannt ist, ohne mit Compilerschaltern rumzufummeln. Und in diesem Fall ist wurscht, ob OOP oder nicht von ausserhalb der Unit sieht man nur die Funktion, nicht die Variable.
Abgesehen davon kann man auch einen Kommentar Marke !!!!Do Not use this Variable it's for Function Foo!!! an die Variable dranschreiben. Dann sollten sich eigentlich alle dran halten und wenn nicht, ist klar, wer schuld ist.