Para usar basta fazer assim:
{$R *.DFM}
{$J+}
Help dp Delphi
Type Switch
Syntax {$J+} or {$J-}
{$WRITEABLECONST ON} or {$WRITEABLECONST OFF}
Default {$J-}
{$WRITEABLECONST OFF}
Scope Local
The $J directive controls whether typed constants can be modified or not. In
the {$J+} state, typed constants can be modified, and are in essence
initialized variables. In the {$J-} state, typed constants are truly
constant, and any attempt to modify a typed constant causes the compiler to
report an error.
Writeable consts refers to the use of a typed const as a variable modifiable
at runtime. For example:
const
foo: Integer = 12;
begin
foo := 14;
end.
With $WRITEABLECONST OFF, this code produces a compile error on the
assignment to the foo variable in the begin..end block. To fix it, change
the const declaration to a var declaration.
In early versions of Delphi and Borland Pascal, typed constants were always
writeable, corresponding to the {$J+} state. Old source code that uses
writeable typed constants must be compiled in the {$J+} state, but for new
applications it is recommended that you use initialized variables and
compile your code in the {$J-} state.
----- Original Message -----
From: "Welson Avelar" <[EMAIL PROTECTED]>
To: "Delphi-BR" <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, April 25, 2006 10:16 AM
Subject: [delphi-br] Alterar uma constante. Isso ja foi possivel !?
Veja só o que está rolando aqui na empresa. Alguns sistemas antigos,
desenvolvidos em D4 foram passados pra D7. Acontece que nesses sistemas
antigos, existe o caso de se poder alterar uma constante durante a execução
do sistema. Olha só:
Const pathBD : String = 'c:\dados\'
(...)
if not bla bla then
pathBD := novoPathBD;
Sacaram a idéia ?! O compilador D7 sempre para em linhas como essa
(existem diversos casos desse no código) falando, claro, que o lado esquerdo
não pode sofrer essa atribuição. Até aí tudo bem, seria só o lance de mudar
de lugar a constante acima e colocá-la na seção VAR. Mas um outro
programador aqui na empresa tá teimando em dizer que isso é configuração do
compilador. Que executa sim e que EU mudei esse troço !!! Já tentei
convencê-lo de que constante é o que diz o nome, C O N S T A N T E, mas
segundo ele, em versões anteriores do Delphi, isso rodava sem o menor
problema.
É verídico isso !?
[]'s.
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros
já foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.4.5/322 - Release Date: 22/04/2006
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.