Manter um valor numa procedure..

Question

Muito tempo que eu nao usava Delphi, e eu lembro que havia um jeito de manter est�tico o valor de uma variavel..[code:1:a9f43455b1]procedure Tlincenet.Timer1Timer(Sender: TObject);vari : integer;begin...

Massuda · Answer

Use uma constante tipada...[code:1:979e5057d6]procedure Tlincenet.Timer1Timer(Sender: TObject); const  i : integer = 0; begin   inc(i); end;[/code:1:979e5057d6]...mas para isso funcionar, em [b:979e5057d6]Project|Options|Compiler[/b:979e5057d6], a op��o [b:979e5057d6]Assignable typed constants[/b:979e5057d6] precisa estar marcada....

Michael · Answer

Complementando a dica do [b:4d04fee30c]Massuda[/b:4d04fee30c], vc pode usar as diretivas [b:4d04fee30c]{$J+}[/b:4d04fee30c] e [b:4d04fee30c]{$J-}[/b:4d04fee30c] apenas na declara��o da constante, evitando a ativa��o do recurso em toda a aplica��o. A Borland recomenda que n�o se altere o valor de uma constante, por isso passou a impedir tal procedimento por padr�o, se n�o me falha a mem�ria a partir do Delphi 6.

Seu c�digo ficaria assim:

procedure Tlincenet.Timer1Timer(Sender: TObject);
{$J+}
const
  i : integer = 0;
{$J-}
begin
  inc(i);
end;

[]�s

F�rum Manter um valor numa procedure.. #299508