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;