C++で静的内部変数の使用例

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  static int counter = 1;
  Button1->Caption = IntToStr(counter);
  counter++;
}

ボタンをクリックするたびに、counterが増える。

WRITEABLECONSTを使用するとDelphiでも同じことができるようだ。

procedure TForm2.Button1Click(Sender: TObject);
const
  {$WRITEABLECONST ON}
  counter: integer = 1;
  {$WRITEABLECONST OFF}
begin
  Button1.Caption := IntToStr(counter);
  inc(counter);
end;