Ver Mensaje Individual
  #2  
Antiguo 25-07-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.142
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
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 Esperalta
www.decsoftutils.com
Responder Con Cita