ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Definindo valor constante dinamicamente

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jonas37
Novato
Novato


Registrado: Segunda-Feira, 30 de Janeiro de 2006
Mensagens: 17

MensagemEnviada: Qui Fev 20, 2014 10:43 am    Assunto: Definindo valor constante dinamicamente Responder com Citação

Olá,
tenho uma lista de constante, e queria uma forma de iniciar o valor das mesmas de uma forma dinânica, sem necessitar eu dar um determinado valor.

Exemplo de como é hoje:
nVALOR_A = 1;
nVALOR_B = 2;
nVALOR_C = 3;
nVALOR_E = 4;

e queria algo +- assim:
nVALOR_A = GetValor;
nVALOR_B = GetValor;
nVALOR_C = GetValor;
nVALOR_E = GetValor;

pois dessa forma, caso eu quisesse inserir um valor intermediário (vejam nVALOR_D) eu pudesse fazer desta forma:
nVALOR_A = GetValor;
nVALOR_B = GetValor;
nVALOR_C = GetValor;
nVALOR_D = GetValor;
nVALOR_E = GetValor;


Alguém tem alguma dica?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Qui Fev 20, 2014 12:46 pm    Assunto: Responder com Citação

tente assim:

Código:
valor := 1;
nVALOR_A = GetValor(Valor);
nVALOR_B = GetValor(Valor);
nVALOR_C = GetValor(Valor);
nVALOR_D = GetValor(Valor);


funcao
Código:
function GetValor(var iValor: Integer): Integer;
begin
   Inc(iValor);
   Result := iValor;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Fev 20, 2014 1:02 pm    Assunto: Responder com Citação

Vc pode fazer uma contante de array, acho que poderia ficar até melhor.




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB