| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jonas37 Novato

Registrado: Segunda-Feira, 30 de Janeiro de 2006 Mensagens: 17
|
Enviada: Qui Fev 20, 2014 10:43 am Assunto: Definindo valor constante dinamicamente |
|
|
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 |
|
 |
joemil Moderador

Registrado: Quinta-Feira, 25 de Março de 2004 Mensagens: 9100 Localização: Sinop-MT
|
Enviada: Qui Fev 20, 2014 12:46 pm Assunto: |
|
|
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 |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Qui Fev 20, 2014 1:02 pm Assunto: |
|
|
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 |
|
 |
|