lokale Variablen mit globaler Lebensdauer?

[sniper_w]

Zitat:

...zum Thema "globale Variablen vermeiden": gibts denn in Object Pascal lokale Variablen mit globaler Lebensdauer? (C/C++ Stichwort "static")

mfg

Ich habe damasl diese Frage auf meine Festplatte geschpeichert, wollte es später auch beantworten. Da ich erst jetzt diese Frage wieder gefunden habe, hier ein Antwort: Ja.
Und zwar so(Delphi 6):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
{$IFOPT J-}
  {$DEFINE restore_me}
{$ENDIF}
{$IF DEFINED (restore_me)}
  {$J+}
{$IFEND}
const D:Integer = 0;
{$IF DEFINED (restore_me)}
  {$J-}
{$UNDEF restore_me}
{$IFEND}
begin
  Inc(D);
  Caption := IntToStr(D);
end;

Für weitere Erklärungen, siehe OH.

[Luckie]

Nein, das ist ein Missbrauch von Konstanten und entspricht nicht dem Schlüsselwort static von C/C++. Das funktioniert übrigens auch nur noch, weil es Borland aus Kompatibilitätsgründen nicht rausgeschmissen hat. Als Programmierer sollte man so etwas tunlichts vermeiden, da es einfach nicht sauber programmiert ist, denke ich.

[Dax]

Ums direkt zu sagen: Lokale Variablen mit Globaler Lebensdauer sind größtmöglicher Schwachsinn. Da kannst du auch gleich globale Variablen nehmen, was genauso schwachsinnig ist

[Robert Marquardt]

Das ist nur Schwachsinn wenn man es wie im Titel formuliert.
Richtig heisst es globale Variablen mit lokaler Sichtbarkeit. Das ist es was C hat und Delphi nicht.
Variablen in der implementation section sind aber fast genauso gut.

[Sprint]

Eine andere Möglichkeit um auf die Compiler Direktive WRITEABLECONST ($J) zu verzichten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Counter: Integer = 0;
begin

  Inc(PInteger(@Counter)^);
  Caption := IntToStr(Counter);

end;

[NicoDE]

Zitat von Sprint:

Eine andere Möglichkeit um auf die Compiler Direktive WRITEABLECONST ($J) zu verzichten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Counter: Integer = 0;
begin

  Inc(PInteger(@Counter)^);
  Caption := IntToStr(Counter);

end;

Eine schlechte Idee schlägt die nächste

sniper_w: dein Quellcode macht Probleme wenn 'restore_me' vorher bereits definiert wurde...

[Sprint]

Zitat von NicoDE:

Eine schlechte Idee schlägt die nächste

Soll nur zeigen, das sowas möglich ist...

[s.h.a.r.k]

Mal ne Frage: Zu was brauche ich das?! Ich kann in Delphi doch globale und lokale Variablen festlegen wie ich will und ich weiß doch von vorne rein, was global und lokal sein soll?! Was bringt mir das dann?

[sniper_w]

Zitat:

Als Programmierer sollte man so etwas tunlichts vermeiden, da es einfach nicht sauber programmiert ist, denke ich.

Zitat:

Ums direkt zu sagen: Lokale Variablen mit Globaler Lebensdauer sind größtmöglicher Schwachsinn. Da kannst du auch gleich globale Variablen nehmen, was genauso schwachsinnig ist

Darüber lässt sich diskutieren. Aber das wollte ich ja nicht. Ich wollte lediglich diese Möglichkeit zeigen. Ob das richtig ist, schön oder nicht, ist eine andere Sache.

[sniper_w]

Zitat von NicoDE:

sniper_w: dein Quellcode macht Probleme wenn 'restore_me' vorher bereits definiert wurde...

Dann musst du halt aufpassen . Anstatt 'restore_me', nimm 'TForm1_Button1Click_Sender_TObject_'