Konstanten

[charlytango]

Mir ist beim Lesen des englischen Forums ein Stück Code aufgefallen, das ich so noch nicht kannte und deswegen thematisiere. Es geht um den Einsatz einer Konstante in einer Ereignisprozedur.

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
const first: boolean = true;
begin
 writeln('FormActivate');
 if not first then exit;

 first:=false;  
 writeln('DoSomething');
end;

Es soll damit FormActivate nur das erste mal aufgerufen werden, aber das Konstukt mit const hat mich etwas stutzig gemacht.
Denn warum darf man einer Konstante einen Wert zuweisen und warum funktioniert das Konstrukt, denn es wird anstandslos kompiliert.

Beim Nachforschen bin ich auf folgendes gestoßen:

Die Zuweisung `first := false;` funktioniert, weil `first` nicht nur eine Konstante ist, sondern auch eine lokale Variable. Die `const`-Deklaration `const first: boolean = true;` initialisiert die Variable `first` beim kompilieren nur einmal mit dem Wert `true`, aber sie macht sie nicht unveränderlich.
Die `const`-Deklaration wird jedoch ignoriert, und die Variable `first` bleibt eine normale Variable.

Der Geltungsbereich von 'first' scheint auch auf die Prozedur beschränkt zu sein.
Um das gleiche zu erreichen hätte ich eine Variable in der Unit definiert und sie im FormCreate Initialisiert.
Das Konstrukt ist also wohl eine elegante Ausreizung der Sprachmöglichkeiten mit besserer Lesbarkeit - oder gibt es dazu andere Meinungen?

[Soner]

Das hatten wir schon mal, lies die Antworten auf meiner Frage.

[wp_xyz]

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
const first: boolean = true;
begin
 writeln('FormActivate');
 if not first then exit;

 first:=false;  
 writeln('DoSomething');
end;

Ich finde das mit dem const extrem unschön und verwirrend. Obiges "first" z.B. ist wegen "const" eine globale Variable, die aber nur aus FormActivate heraus ansprechbar ist und bei jedem Aufruf von FormActivate ihren Wert behält. Schreibst du aber "var: boolean = true" ("var" statt "const") hast du eine lokale Variable, die bei jedem Aufruf von FormActivate neu mit dem Wert true initialisiert wird.

[Zvoni]

Hinzu kommt, dass durch den Datentyp Boolean, das Ding ne Adresse im Speicher erhält, im Gegensatz zu untypisierten Konstanten, bei denen der Compiler deren Wert im Code einfach dann ersetzt.

Aus dem Stegreif weiss ich jetzt aber auch nicht, was der Default ist: Writable Const on oder off

Stimme aber zu, dass in dem Kontext "Const" sehr unglücklich gewählt ist, da es ja eigentlich eher sowas wie "Static" beschreibt, was ich aus VB6 kenne:
Eine Prozedur-lokale Variable, die ihren letzten Wert behält

[theo]

Das Konstrukt ist also wohl eine elegante Ausreizung der Sprachmöglichkeiten mit besserer Lesbarkeit - oder gibt es dazu andere Meinungen?

Widersprichst du dir da nicht selber?
Eine bessere Lesbarkeit hat es wohl kaum, wenn man zuerst (oder jedes Mal?) die Regeln zu diesem merkwürdigen Spezialfall nachlesen muss.
Persönlich würde ich dieses Konstrukt meiden.

[charlytango]

Das hatten wir schon mal, lies die Antworten auf meiner Frage.

Danke, war sehr informativ.

Eine bessere Lesbarkeit hat es wohl kaum, wenn man zuerst die Regeln zu diesem merkwürdigen Spezialfall nachlesen muss.
Persönlich würde ich dieses Konstrukt meiden.

Auch wenns irgendwie elegant aussieht, ich lasse sicherheitshalber die Finger davon
Für mich ist der Fall damit erledigt.

[Zvoni]

Auch wenns irgendwie elegant aussieht, ich lasse sicherheitshalber die Finger davon

Warum?
Ist eine elegante Methode z.B. um in einem Timer eine lokale Variable hochlaufen zu lassen oder bei Rekursionen die Tiefe zu "messen"
(und ja, ich weiss... "Dann nimm halt ne unit-weite Variable unter implementation..."),

Aber wie bereits erwähnt: "Man muss es halt wissen....."

[Mathias]

Ich finde das mit dem const extrem unschön und verwirrend. Obiges "first" z.B. ist wegen "const" eine globale Variable, die aber nur aus FormActivate heraus ansprechbar ist und bei jedem Aufruf von FormActivate ihren Wert behält. Schreibst du aber "var: boolean = true" ("var" statt "const") hast du eine lokale Variable, die bei jedem Aufruf von FormActivate neu mit dem Wert true initialisiert wird.

Ich finde dies auch extrem unschön. Wieso kann man in Pascal nicht einfach das Schlüsselwort static einführen. So ist es für jedermann lesbar.
Wenigsten geht die unterdessen ich classen und objecten.

[PascalDragon]

Ich finde das mit dem const extrem unschön und verwirrend. Obiges "first" z.B. ist wegen "const" eine globale Variable, die aber nur aus FormActivate heraus ansprechbar ist und bei jedem Aufruf von FormActivate ihren Wert behält. Schreibst du aber "var: boolean = true" ("var" statt "const") hast du eine lokale Variable, die bei jedem Aufruf von FormActivate neu mit dem Wert true initialisiert wird.

Ich finde dies auch extrem unschön. Wieso kann man in Pascal nicht einfach das Schlüsselwort static einführen. So ist es für jedermann lesbar.

Weil es eben das const-Konstrukt gibt und das würde auch nicht verschwinden, weil es ja alten Code und v.a. TP und Delphi Code gibt, der das braucht. Wir vermeiden es im Allgemeinem mehrere Syntaxen für das Gleiche zu haben.

[Warf]

Nicht getestet, aber wenn man's unbedingt will müsste doch sowas möglich sein

Code: Alles auswählen

{$Macros On}
{$define staticvar:={$J+}const}
{$define constval:={$J-}const}

...
constval
  c: Char = 'c';
staticvar
  i: Integer= 42;