statische Variable

[haderlump]

Hallo zusammen
Gibt es die Möglichkeit innerhalb einer Procedure statische Variable zu definieren, die also ihren Wert nicht nach Procedureende verlieren, sondern beim nächsten Aufruf wieder zur Verfügung stehen.
Oder geht das nur über gloale Variable?

Gruß Fritz

[siro]

Das sollte gehen:
So habe ich es zumindest schon ausprobiert und das scheint sich exakt wie "static" in "C" zu verhalten.

Code: Alles auswählen

const MeineVar : Integer = 1234;

Also vorn als "const" definieren,
dann einen beliebigen Init-Wert angeben,
der wird "automatisch" nur einmal beim Starten der Software gesetzt

[Niesi]

Es geht auch mit var:

procedure xyz;
var
i : integer = 0;
i1 : integer = 0;
i2 : integer = 0;

...

Ist eigentlich Initieren, sollte aber "reichen" ...

[m.fuchs]

Das initiert aber den Wert bei jedem Aufruf die Variable wieder auf 0.
Der OP möchte aber den Wert vom Ende der Prozedur zum nächsten Aufruf mitnehmen.

[Warf]

Afaik gibt es das in Pascal nicht.
MMn. auch aus gutem grund. Dabei handelt es sich technisch ja nur um eine globale variable, welche nur im lokalen scope verfügbar ist. Das macht unter C Sinn und hätte im rein Prozedualen programmieren bestimmt auch eine Existenzberechtigung (auch wenn es mMn. kein schöner programmierstil ist, ich würde eher globale variablen mit nem namensprefix verwenden), aber seit OOP braucht man das gar nicht mehr, da all die informationen die über die Methodenlaufzeit hinweg gespeichert werden müssen als private Feld der Klasse angelegt werden können. Kombiniert mit dem Singelton Muster benötigt man in den meisten fällen keine globalen variablen mehr, und statische variablen sind ja nichts anderes.

Edit: grad mit const ausprobiert, scheint doch zu gehen, irgendwie komisch, hätte ein solches verhalten mit const nicht erwartet

[siro]

mit var geht das nicht,
aber mit const funktioniert es bei mir einwandfrei.

Code: Alles auswählen

 
procedure Test;
const x:integer = 0;    // var geht nicht !!!!!!!!!!
begin
  x:=x+1;
  form1.caption:=IntToStr(x);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;          

benutzt man "var" wird bei jedem Wiedereintritt in die procedure Test der Wert x auf 0 gesetzt.
Bei const bleibt der Wert erhalten.

[m.fuchs]

Afaik gibt es das in Pascal nicht.

Wie kannst du denn sowas schreiben, wenn siro schon im zweiten Beitrag die Lösung geschrieben hat?

auch wenn es mMn. kein schöner programmierstil ist

Definitiv ist das kein schöner Stil.

[Warf]

Wie kannst du denn sowas schreiben, wenn siro schon im zweiten Beitrag die Lösung geschrieben hat?

Hatte es mit const noch nicht ausprobiert gehabt, hab den post total überlesen, hatte auf die schnelle nur die "lösung" mit var gesehen, die nicht funktioniert. Ich dummerchen hatte bei const immer Konstanten im Kopf, hab an sowas nie gedacht

[m.fuchs]

Ich dummerchen hatte bei const immer Konstanten im Kopf, hab an sowas nie gedacht

Das ist eine furchtbare Altlast aus Turbo-Pascal-Zeiten. Wenn man einer Konstante einen Typ zuweist, dann ist sie nicht mehr konstant sondern eine statische Variable.

Mit der Compileroption

Code: Alles auswählen

{$J-}

kann man das deaktivieren. Dann verhalten sich auch typisierte Konstanten wirklich konstant.

[siro]

grad probiert, mit der Option {$J-} geht es wirklich nicht mehr. Da meckert der Compiler.

Auch wenn es nicht sonderlich schön aussieht, mag ich diese Möglichkeit, leider gibt es ja das Schlüsselwort static (meines Wissen nach) "noch" nicht in Pascal.
Es gibt aber auch zugegebenermaßen wenig sinnvolle Anwendungen dafür. Im Prinzip ist das ja, wie Warf schon schrieb, nur eine Globale Variable mit
geringer Sichtbarkeit (nur innerhalb der Procedure bzw. Funktion).
Fazit: Es geht, man muss es aber nicht unbedingt benutzen...

[Warf]

Das ist eine furchtbare Altlast aus Turbo-Pascal-Zeiten. Wenn man einer Konstante einen Typ zuweist, dann ist sie nicht mehr konstant sondern eine statische Variable.

Mit der Compileroption

Code: Alles auswählen

{$J-}

kann man das deaktivieren. Dann verhalten sich auch typisierte Konstanten wirklich konstant.

Danke, das werd ich jetzt wohl öfter benutzen müssen. Ich bin immer davon ausgegangen das es richtige konstanten wären. Klar macht das bis auf ein paar kleinere Optimierungen nicht so viel aus, aber ich will wenn ich konstanten verwende sicher gehen das wenn ich Ausversehen eine Zuweisung o.ä. mache (z.B. als var parameter übergeben) der Compiler meckert.

Fazit: Es geht, man muss es aber nicht unbedingt benutzen...

Um noch eine Alternative zu zeigen mit einem Singelton objekt (wäre die alternative zu einer reinen funktion, nicht zu einer Methode, da solltest du einfach das zur klasse hinzufügen):

Code: Alles auswählen

unit XYUtils
{$Mode ObjFPC}{$H+}
type
  TXYUtilities = class
  private
    CurrentInt: Integer;
  public
    function GetNextInt: Integer;
end;
 
function XYUtilities: TXYUtilities;
implementation
var MyXYUtilities: TXYUtilities;
 
function XYUtilities: TXYUtilities;
begin
  if not Assigned(MyXYUtilities) then
    MyXYUtilities = TXYUtilities.Create;
  Result := MyXYUtilities;
end;
 
function TXYUtilities.GetNextInt: Integer;
begin
  Result := CurrentInt;
  Inc(CurrentInt);
end;

Benutzen dann

Code: Alles auswählen

uses ..., XYUtils;
...
  i := XYUtilities.GetNextInt;

[Mathias]

Auch wenn es nicht sonderlich schön aussieht, mag ich diese Möglichkeit, leider gibt es ja das Schlüsselwort static (meines Wissen nach) "noch" nicht in Pascal.

Dies stimmt nicht ganz, in Classen kann man static verwenden.:

Code: Alles auswählen

type
  Tclass = class
    i: integer; static;  // Dies geht
  end;  

Aber in einer normalen procdure hätte ich es auch lieber so:

Code: Alles auswählen

procedure Test;
var
  i: integer = 123; static;
begin

[siro]

Guten Morgen zusammen:

Dies stimmt nicht ganz, in Classen kann man static verwenden.:

Code: Alles auswählen

type
  Tclass = class
    i: integer; static;  // Dies geht
  end;  

Da verstehe ich jetzt nicht.
Wenn ich eine Instanz einer Klasse anlege, dann sind die Eigenschaften doch IMMER static, (sie existieren solange bis ich die Instanz freigebe)
oder hab ich da jetzt einen Gedankenfehler,
was macht das static an dieser Stelle ?, wird hier lediglich eine Sichtbarkeit unterdrückt ?

[mse]

was macht das static an dieser Stelle ?, wird hier lediglich eine Sichtbarkeit unterdrückt ?

Alle Instanzen der Klasse beziehen sich auf die gleiche globale Variable.

[siro]

Ach echt das kannte ich noch garnicht.
Man lernt nie aus, Ich danke Dir mse.