Macro Substituição

Executa um conteúdo entre Aspas e faz a substituição dele para o AdvPL

Exemplo da Rotina:

&("Comando(s)")

Exemplo 1- Usando a Macrosubstituição em uma conta:

cExpressao := " 7 + 8 - 3 "
nValor := &(cExpressao)

Exemplo 2- Criando várias variáveis e depois mostrando o conteúdo delas:

For nAtual := 1 To 20
	&("xVar" + cValToChar(nAtual)) := nAtual * 100
Next

For nAtual := 1 To 20
	cNomeVar := "xVar" + cValToChar(nAtual)
	Alert("Variável [" + cNomeVar + "] é igual a [" + cValToChar(&(cNomeVar)) + "]")
Next

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

TDN