lokale Variablen mit globaler Lebensdauer?

[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;