ayuda con variables estáticas !!!!!!

[david_uh]

estoy intentando crear una variable estatica en un procedimiento para que cuando salga y vuelva a entrasr al procedimiento la variable conserve su valor pero me manda error el compilador. Estoy usando este codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const r: Integer=10;
begin
   ShowMessage(IntToStr(r));
   inc(r);
end;

deseo que entre llamada y llamada a button1click la variable r conserve su valor, esto lo he hecho antes revise un proyecto anterior y esta igual pero no manda errores al compilar sin embar ahora si me manda no entiendo que anda mal.

[david_uh]

ok ya encontre el problema era ir a Proyect -> options...
de ahi elejir la ficha Compiler y marcar asignable typed constants

[dec]

Hola,

Iba a decir que echaras un vistazo al artículo Understanding Typed Constants in Delphi de Zarko Gajic. Tal vez, aunque ya diste con la solución, no te parezca mal echar un vistazo, si no lo has hecho ya.

Por ejemplo, también puedes especificar en el propio código la opción que has "marcado" en las opciones del proyecto:

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

[david_uh]

ok si ya lo lei gracias . mmm una pregunta por que no aparece tu primera respuesta???? solo me llego notificacion al mail pero en el hilo no aparece nada

[dec]

Hola,

Je, je, je... Porque la borré. Metí la pata, me equivoqué, me pasé de listo y estaba equivocado.