DELPHI / Typing Constants

[optimusprime]

Kod:
procedure TForm1.Button1Click(Sender: TObject);
const clicks : Integer = 1; //not a true constant
begin
Form1.Caption := IntToStr(clicks);
clicks := clicks + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var clicks : Integer;
begin
Form1.Caption := IntToStr(clicks);
clicks := clicks + 1;
end;

{$J+}
const clicks : Integer = 1;
{$J-}

procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const clicks : Integer = 1; //not a true constant
{$J-}
begin
Form1.Caption := IntToStr(clicks);
clicks := clicks + 1;
end;