Programalama > DELPHI

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;